initial commit / add all books

2 files changed, 30 insertions, 0 deletions

diff --git a/2223/CH18/EX18.6/Ex18_6.sav b/2223/CH18/EX18.6/Ex18_6.sav
new file mode 100755
index 000000000..14b55d840
--- /dev/null
+++ b/2223/CH18/EX18.6/Ex18_6.sav
diff --git a/2223/CH18/EX18.6/Ex18_6.sce b/2223/CH18/EX18.6/Ex18_6.sce
new file mode 100755
index 000000000..fae4d033b
--- /dev/null
+++ b/2223/CH18/EX18.6/Ex18_6.sce
@@ -0,0 +1,30 @@
+// scilab Code Exa 18.6 Calculations on a Gas Turbine 

+

+m=472; // flow rate of hot gases in kg/s

+T01=1335;  // Turbine inlet temp in Kelvin

+p01=10; // Turbine Inlet Pressure in bar

+c2=150; // exit velocity in m/s

+pr0=10; // Turbine pressure ratio

+gamma_g=1.67;

+T2=560;  // Temperature of gases at exit in Kelvin

+cp_g=1.157; // Specific Heat of gas at Constant Pressure in kJ/(kgK)

+

+// part(a) Determining total to total efficiency

+T02=T2+(0.5*(c2^2)/(cp_g*1e3));

+T02s=T01/(pr0^((gamma_g-1)/gamma_g));

+n_tt=(T01-T02)/(T01-T02s);

+disp("%",n_tt*100,"(a)total to total efficiency is")

+

+

+// part(b) Determining total to static efficiency

+T2s=T02s-(0.5*(c2^2)/(cp_g*1e3));

+n_ts=(T01-T02)/(T01-T2s);

+disp("%",n_ts*100,"(b)total to static efficiency is")

+

+// part(c) Determining the polytropic efficiency

+n_p=((gamma_g)/(gamma_g-1))*((log(T01/T02))/(log(pr0)));

+disp("%",n_p*100,"(c)polytropic efficiency is")

+

+// part(d) Determining power developed by the turbine

+P=m*cp_g*(T01-T02);

+disp("MW",P/1e3,"(d)Power developed by the turbine is")