summaryrefslogtreecommitdiff
path: root/1466/CH3/EX3.4/3_4.sce
blob: 786660cf2a81581bf8e1737e77931e4cead8a02b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

clc
//initialisation of variables
k= 0.97
dp= 3 //in
dt= 1 //in
g= 32.2 //ft/sec^2
h= 16.2 //in
//CALCULATIONS
a2= (%pi/4)*(dp/12)^2
a1= (%pi/4)*(dt/12)^2
Q= k*sqrt(2*g)*sqrt(h/12)*(a1*a2/(sqrt(a1^2-a2^2)))
hf= (h/12)*(1-k^2)
hl= 2*hf
ht= hf+hl
//RESULTS
printf (' total head lost in the meter due to friction = %.2f ft ',ht)