1 files changed, 49 insertions, 0 deletions
diff --git a/551/CH12/EX12.25/25.sce b/551/CH12/EX12.25/25.sce
new file mode 100755
index 000000000..c3335a32a
--- /dev/null
+++ b/551/CH12/EX12.25/25.sce
@@ -0,0 +1,49 @@
+clc
+h1=3315; //kJ/kg
+h2=2716; //kJ/kg
+h3=3165; //kJ/kg
+h4=2236; //kJ/kg
+h_f2=697.1;//kJ/kg
+h_f6=h_f2;
+h_f4=111.9; //kJ/kg
+h_f5=h_f4;
+
+disp("(i) Amount of steam bled off for feed heating =")
+m=(h_f2-h_f4)/(h2-h_f4);
+disp(m)
+disp("steam bled off is 22.5% of steam generated by the boiler.")
+
+
+disp("(ii) Amount of steam supplied to L.P. turbine =")
+amt=100-m*100;
+disp(amt)
+disp("77.5% of the steam generated by the boiler.")
+
+
+disp("(iii) Heat supplied in the boiler and reheater")
+Q_boiler=h1-h_f6;
+disp("Q_boiler=")
+disp(Q_boiler)
+disp("kJ/kg")
+
+Q_reheater=(1-m)*(h3-h2);
+disp("Q_reheater=")
+disp(Q_reheater)
+disp("kJ/kg")
+
+Qs=Q_boiler+Q_reheater;
+
+disp("(iv) Cycle efficiency")
+W=h1-h2 + (1-m)*(h3-h4);
+
+n_cycle=W/Qs;
+disp("n_cycle=")
+disp(n_cycle)
+
+
+disp("(v) Power developed by the system")
+ms=50; //kg/s
+Power=ms*W/1000; //MW
+disp("Power=")
+disp(Power)
+disp("MW")
+\ No newline at end of file