blob: 579dfc88ce3a2d223ff3ebb7a978d636fbf72159 (
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
27
|
// scilab Code Exa 14.4 rotor and upstream guide blades
beta2=30; // rotor blade air angle at inlet in degree
beta3=10; // rotor blade air angle at exit in degree
dh=0.3; // hub diameter in m
dt=0.6; // tip diameter in m
N=960; // rotor Speed in RPM
phi=0.245; // flow coefficient
T1=316; // in Kelvin
p1=1.02; //Initial Pressure in bar
R=287;
n_d=0.88; // Efficiency of the drive
n_f=0.8; // Efficiency of the fan
A=%pi*((dt^2)-(dh^2))/4;
d=0.5*(dt+dh);
u=%pi*d*N/60;
cx=phi*u;
Q=cx*A;
ro=(p1*1e5)/(R*T1);
delh0_st=(u^2)*phi*(tand(beta2)-tand(beta3));
n_o=n_f*n_d;
delp0_st=n_f*ro*delh0_st;
disp("mm W.G.",delp0_st/9.81,"static pressure rise in the stage is")
shi=2*phi*(tand(beta2)-tand(beta3));
disp(shi,"stage pressure coefficient is")
m=ro*Q;
P=m*delh0_st/n_d;
disp("kW",P/1000,"Power required to drive the fan is")
|
