2 files changed, 27 insertions, 0 deletions
diff --git a/2223/CH14/EX14.4/Ex14_4.sav b/2223/CH14/EX14.4/Ex14_4.sav
new file mode 100755
index 000000000..0175d013b
--- /dev/null
+++ b/2223/CH14/EX14.4/Ex14_4.sav
diff --git a/2223/CH14/EX14.4/Ex14_4.sce b/2223/CH14/EX14.4/Ex14_4.sce
new file mode 100755
index 000000000..579dfc88c
--- /dev/null
+++ b/2223/CH14/EX14.4/Ex14_4.sce
@@ -0,0 +1,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")