clc
//initialisation of variables
v=1.34//fps
s=3.7*10^-3//fps
k=0.8//ft
r=20//ft
k1=0.04//ft
v=3.0//fps
v1=5.0//fps
d=10^-1//ft
d1=1.34//ft
//CALCULATIONS
K=r*k1//ft
V=sqrt(r)//times
D=d*(v/d1)^2//cm
D1=d*(v1/d1)^2//cm
//RESULTS
printf('the minimum velocity and the gradient at the which coarse quartz=% f cm',D1)