sl.18

clear
De=input("density of rocks =    ");
D=input("diameter hole in mm =    ");
N=input("Number of hole =    ");
PF==input("powder factor =    ");
BH=D/15;
B=30*D;
S=1.15*B;
J=10*D;
St=B;
BSR=BH/B;
L=BH+J;
C=L-J;
V=B*S*BH*N;
Vb=3.14*((D^2)/4000)*C;
kg=Vb*PF;
printf("Bench Height = %d\n",BH);
printf("Berden = %d\n",B);
printf("Spacing = %d\n",S);
printf("Subdrill = %d\n",J);
printf("Stemming = %d\n",St);
printf("Burden stiffness ratio = %d\n",BSR);
printf("Hole lenght = %d\n",L);
printf("Charge length = %d\n",C);
printf("Blast Volume = %d\n",V);
printf("Volume of blasthole= %d\n",Vb);
printf("Mass of explosive = %d\n",kg);



if BSR>3.5
disp("Verrygood fragmentation");
else
disp("Good fragmentation");
end