From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 1919/CH5/EX5.19/Ex5_19.sce | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100755 1919/CH5/EX5.19/Ex5_19.sce

(limited to '1919/CH5/EX5.19')

diff --git a/1919/CH5/EX5.19/Ex5_19.sce b/1919/CH5/EX5.19/Ex5_19.sce
new file mode 100755
index 000000000..57ef0e480
--- /dev/null
+++ b/1919/CH5/EX5.19/Ex5_19.sce
@@ -0,0 +1,35 @@
+
+// Theory and Problems of Thermodynamics
+// Chapter 5
+//Second Law of Thermodynamcis
+// Example 19
+
+clear ;clc;
+
+//Given data
+T1 = 573.15             // entering temperature of superheated steam in K
+P1 = 3.0                // entering pressure of superheated steam in MPa
+P2 = 20                 // leaving  pressure of superheated steam in MPa
+Ws = 1e3                // output power of turbine in KW
+
+// For steam at 3.0 MPa and 573.15 K
+h1 = 2993.5             // enthalphy for superheated steam kJ/kg
+s1 = 6.539              // entrophy  for superheated steam kJ/kg K
+
+// at 20 kPa
+hf = 251.4              // enthalphy kJ/kg
+hfg = 2358.3            // enthalphy kJ/kg
+sf = 0.832              // entrophy  kJ/kg K
+sfg = 7.9085             // entrophy  kJ/kg K
+
+// Reversible, adiabatic turbine: s1 = s2
+//energy balance
+deff('y=mass(X)', 'y = sfg*X + (1-X)*sf - s1') 
+X = fsolve(0,mass)                // Mass of water vaporised in kg
+
+h2 = hf + X * hfg                  // enthalphy for leaving steam
+
+m = -Ws/(h2-h1)                   // flow rate of steam in kg/s
+
+// Output Results
+mprintf('The flow rate of steam = %4.2f kg/s', m)
-- 
cgit