1 files changed, 22 insertions, 0 deletions
diff --git a/3511/CH6/EX6.12/Ex6_12.sce b/3511/CH6/EX6.12/Ex6_12.sce
new file mode 100644
index 000000000..0d2488c09
--- /dev/null
+++ b/3511/CH6/EX6.12/Ex6_12.sce
@@ -0,0 +1,22 @@
+clc;
+rp=4; // Pressure ratio
+WN=1500; // Net work output in kW
+T01=25+273; // Inlet temperature in kelvin
+p01=1; // Inlet pressure in bar
+p03=4; // Turbine inlet pressure in bar
+T03=700+273;// turbine inlet temperature in kelvin
+eff_c=0.85; // Compressor efficiency
+eff_over=0.21; // Overall efficiency
+Cp=1.005;// Specific heat of air  at constant pressure in kJ/kg K
+r=1.4; // Specific heat ratio of air
+
+T02=T01+T01*(rp^((r-1)/r)-1)/eff_c;
+Q=WN/eff_over;
+m=Q/(Cp*(T03-T02));
+Wn=WN/m; // Net work per kg
+T04=T03-T02+T01-(Wn/Cp);
+T_04=T03/rp^((r-1)/r);
+eff_T=(T03-T04)/(T03-T_04);
+
+disp ("kg/s",m,"Mass flow rate = ");
+disp ("%",eff_T*100,"Isentropic efficiency  of the Turbine = ");