summaryrefslogtreecommitdiff
path: root/2159/CH9/EX9.3/93.sce
blob: 90a7bc3247b00dedbcc3da1ed70d3b4cf97fd7fe (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
// problem 9.3
D=0.15
s=0.3
Hs=3
Hd=30
n=0.8
a=3.142*D*D/4
N=60/60
w=9810
Q=0.62/60
Qth=(2*a*s*N)
slip=(Qth-Q)/Qth
power=(w*Qth*(Hs+Hd))/(1000*n)
disp(slip*100,power,"power in Kw required to drive the pump,percentage slip")