From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 3685/CH12/EX12.4/Ex12_4.sce | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 3685/CH12/EX12.4/Ex12_4.sce

(limited to '3685/CH12/EX12.4/Ex12_4.sce')

diff --git a/3685/CH12/EX12.4/Ex12_4.sce b/3685/CH12/EX12.4/Ex12_4.sce
new file mode 100644
index 000000000..e86cedf09
--- /dev/null
+++ b/3685/CH12/EX12.4/Ex12_4.sce
@@ -0,0 +1,22 @@
+clc
+h1 = 3465 // Enthalpy at state 1 in kJ/kgK
+h2s = 3065 //Enthalpy at state 2s in kJ/kgK 
+h3 = 3565 //Enthalpy at state 3 in kJ/kgK
+h4s = 2300 // Enthalpy at state 4s in kJ/kgK
+x4s = 0.88 // Steam quality at state 4s
+h5 = 191.83// Enthalpy at state 5 in kJ/kgK
+v = 0.001 // specific volume in m^3/kg
+P = 150 // Boiler outlet pressure in bar
+Wp = v*P*100 // Pump work
+h6s = 206.83 // Enthalpy at state 6s in kJ/kgK
+Q1 = (h1-h6s)+(h3-h2s) // Heat addition
+Wt = (h1-h2s)+(h3-h4s) // Turbine work
+Wnet = Wt-Wp // Net work
+n_cycle = 100*Wnet/Q1 // cycle efficiency
+sr = 3600/Wnet //Steam rate
+
+printf("\n Example 12.4 \n")
+printf("\n Quality at turbine exhaust is %f ",0.88)
+printf("\n Cycle efficiency is %f percent",n_cycle)
+printf("\n Steam rate is %f kg/kW h",sr)
+//The answers vary due to round off error
-- 
cgit