SC15

clear

D=input(" Hole Diameter (mm)=")

H=D/10

printf("\n Bench hight=%.2f",H);

B=35*D/1000

printf("\n Burden = %.2f",B);

S=1.15*30*D/1000

printf("\n Spacing = %.2f",S);

SD=10*D/1000

printf("\n Subdrill = %.2f",SD);

LC=20*D/1000

printf("\n Charge length = %.2f",LC);

T=20*D/1000

printf("\n stemming = %.2f",T);

BTR=(H/B)*1000

printf("/n Bueden stiffness ratio= %.2f",BTR);

SMS=D/10

printf("\n Stemming material=%.2f",SMS);

L=H+SD

printf("\n Hole length = %.2f",L);

C=L-T

printf("\n Charge length = %.2f",C);

N=input(" Num of holes in a blast =")

V=B*S*H*N

printf("\n Blast volume = %.2f",V);

Den=input("Density of rock (t/m^3)=")

BT=V*Den




printf("\n Blasted tonnes = %.2f",T);

Vb=%pi*((D^2)/4000)*L/1000

printf("\n volume of blasthole = %.2f",Vb);

Ex=input ("Explosive Density(kg/m^3)=")

Mass = (%pi*D^2)/4000*(H+SD-T)*Ex

printf("\n Mass of explosive per hole (kg)=%.2f",Mass);

PF=Mass/(H*B*S)/1000

printf("\n Powder factor (kg/tonne)=%.2f",PF);