SC.15

clear
D=input("Input Blast hole diameter(mm.) =");
N=input("Input Number of Holes in Blast(รู) =");
SG=input("Input Density of rock(T.) =");
ED=input("Input Explosive density(kg.) =");
BH=D/15;
B=30*D/1000;
S=1.15*B;
SD=3*D/1000;
C=20*D/1000;
SL=0.7*B;
BSR=(BH/B);
SMS=D/10;
L=BH+SD;
C=L-SL;
V=B*S*BH*N;
T=V*SG;
Vb=(%pi*D*D*L)/4000;
MP=Vb*ED;
PF=(MP*N)/(V*1000);
printf("Bench Height=%.3f m. \nBunden=%.3f m. \nSpacing=%.3f m. \nSubdrill=%.3f m. \nCharge length=%.3f m. \nStemming=%.3f m. \nBurden stiffness ratio=%.3f \nStemming material size=%.3f \nHole Length=%.3f m. \nCharge length=%.3f m. \nBlast volume=%.3f m^3 \nBlast tonnes=%3f T. \nVolme of blasthole=%.3f m^3 \nMass of explosive per hole=%.3f kg. \nPowder factor=%.3f kg/m^3",BH,B,S,SD,C,SL,BSR,SMS,L,C,V,T,Vb,MP,PF);