initial commit / add all books

1 files changed, 34 insertions, 0 deletions

diff --git a/3511/CH6/EX6.11/Ex6_11.sce b/3511/CH6/EX6.11/Ex6_11.sce
new file mode 100644
index 000000000..129cef6dd
--- /dev/null
+++ b/3511/CH6/EX6.11/Ex6_11.sce
@@ -0,0 +1,34 @@
+clc;

+eff_pe=0.88; // Compressor and turbine polytropic efficiencies

+T01=310; // Temperature at LP compressor inlet in kelvin

+p01=14; // Pressure at LP compressor inlet in bar

+rp=2; // Compressor pressure ratio

+T03=300;// Temperature at HP compressor inlet in kelvin

+m=180; // Mass flow of Helium in kg/s

+Q=500; // Heat input to gas turbine in MW

+T07=700; // Helium Temperature at entry to reactor channels in kelvin

+P_precoller=0.34; // Pressure loss in pre-cooler and intercooler in bar

+P_loss_HE=0.27; // Pressure loss in heat exchanger in bar

+P_loss_RC=1.03; // Pressure loss in reactor channel in bar

+eff_pc=0.88; // Polytropiic efficiency

+Cp=5.19;// Specific heat   at constant pressure in kJ/kg K

+r=1.66; // Specific heat ratio 

+

+n_1_n=((r-1)/r)*(1/eff_pc);

+T02=T01*rp^n_1_n;

+T04=T03*rp^n_1_n;

+T05=((Q*10^3)/(m*Cp))+T07;

+T_press_loss=P_precoller+P_loss_HE+P_loss_RC; // Total pressure loss

+p05=56-T_press_loss;

+p06=p01+P_precoller+P_loss_HE;

+n__1_n=eff_pc*((r-1)/r);

+T06=T05/(p05/p06)^n__1_n;

+WC=m*Cp*((T02-T01)+(T04-T03)); // Work of compressor

+WT=m*Cp*(T05-T06); // Work of Turbine

+WN=WT-WC; // Net work output

+eff_th=WN/(Q*10^3); // Efficiency

+eff=(T07-T04)/(T06-T04); // Effectiveness

+

+disp ("MW   (roundoff error)",WN/1000,"Power output = ");

+disp ("%   (roundoff error)",eff_th*100,"Thermal efficiency = ");

+disp ("%   (roundoff error)",eff*100,"Effectiveness = ");