1 files changed, 26 insertions, 0 deletions
diff --git a/2223/CH8/EX8.4/Ex8_4.sce b/2223/CH8/EX8.4/Ex8_4.sce
new file mode 100755
index 000000000..e7059d290
--- /dev/null
+++ b/2223/CH8/EX8.4/Ex8_4.sce
@@ -0,0 +1,26 @@
+// scilab Code Exa 8.4 blower type annular cascade tunnel
+
+t=35;
+T=t+273;  // test Temperature in Kelvin
+p=1.02; //  test Pressure in bar
+dm=50/100; // mean diameter of the impeller blade in m
+b=15/100; // blade length in m
+n_o=0.6; // stage efficiency
+R=287;
+c=100; // Maximum Velocity upstream of the cascade in m/s
+ro=p*10e4/(R*T); // density of air in kg/m3
+
+// part(a) determining the total pressure developed by the blower
+d_h=0.5*ro*(c^2);
+loss=0.1*d_h;
+delp=d_h+loss;
+disp ("mm W.G." ,delp/9.81,"(a)the pressure developed is")
+
+// part (b) determining the discharge
+A=%pi*dm*b; // the annulus cross-sectional area 
+Q=c*A;
+disp ("m3/min" ,Q*60,"(b)the discharge is")
+
+// part (c) determining the power required to drive the blower
+P=Q*delp/(n_o*10e2);
+disp("kW",P,"(c)Power required to drive the blower is")