summaryrefslogtreecommitdiff
path: root/2513/CH14/EX14.2/14_2.sce
blob: 89d258b2fc72c5cffef2282deb749c357ccfada8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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)