summaryrefslogtreecommitdiff
path: root/2159/CH11/EX11.8/118.sce
blob: 5c94ac78613997cddbd5c76e0f038af78a9d6c21 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
// problem 11.8
L=1600
H=550
Dp=1.2
d=0.18
f=0.006
Cv=0.97
g=9.81
V1=Cv*(sqrt(2*g*H))
a=3.142*d*d/4
Q=a*V1
w=9810
P=(w*Q*V1*V1)/(2*g*1000)
ap=3.142*Dp*Dp/4
Vp=Q/ap
Hf=(4*f*L*Vp*Vp)/(Dp*2*g)
Tp=4*w*Q*(H+Hf)/1000
disp(Tp,P,"power to each jet in Kw,total power at reserviour i Kw")