summaryrefslogtreecommitdiff
path: root/3814/CH5/EX5.4/Ex5_5.sce
blob: 8e4cd5fd742f2fce9de0c91784c42c604a1afdea (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
// to find coefficient of velocity speed ratio,jet diameter
//ex 5.5 pgno119
clc
cv=0.98//velocity of volume
g=9.8//gravity
h=130//head loss
V1=cv*(sqrt(2*g*h))//velocity of jet 
mprintf('\n velocity of the jet = %f m/s',V1)
s=0.46//specific gravity
u=s*V1//velocity 
mprintf('\n u = %f m/s',u)
N=200//Rotational speed
D=(60*u)/(%pi*N)//Diameter
mprintf('\n  peripherial velocity u =%f m',D)
d=D/9
mprintf('\n d =%f m',d)
p=8e6//petlon turbine 
no=0.87//eficiency
gamma1=9800//constant gamma
Q=(p/(no*gamma1*h))//volume flow rate
mprintf('\n Q = %f m3/s',Q)
n=(Q*4)/(%pi*d*d*V1)//
mprintf('\n number of jets n =%d',n)
Z=(D/(2*d))+15
mprintf('\n number of buckets %f ',Z)