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.20/Ex5_20.sce | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100755 1919/CH5/EX5.20/Ex5_20.sce

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

diff --git a/1919/CH5/EX5.20/Ex5_20.sce b/1919/CH5/EX5.20/Ex5_20.sce
new file mode 100755
index 000000000..2e5665e8f
--- /dev/null
+++ b/1919/CH5/EX5.20/Ex5_20.sce
@@ -0,0 +1,26 @@
+
+// Theory and Problems of Thermodynamics
+// Chapter 5
+//Second Law of Thermodynamcis
+// Example 20
+
+clear ;clc;
+
+//Given data
+P1 = 0.5                // entering pressure of air at nozzle in MPa
+T1 = 500                // entering temperature of air at nozzle in K
+V1 = 2                   // velocity of air enters at nozzle
+P2 = 0.1                // leaving  pressure of air from nozzle in MPa
+r = 1.4                 // ratio of specific heats of air
+R = 8.314               // gas constant
+
+T2 = T1*(P2/P1)^((r-1)/r)       // enthalphy for superheated steam kJ/kg
+// from law of thermodynamics
+//(V2^2)/2 = h1 + (V1^2)/2 - h2   
+//(V2^2)/2 = cp*(T1-T2) + (V1^2)/2
+
+deff('y=mass(V2)', 'y = (V2^2)/2 - (R*r/(r-1))*(T1-T2) + (V1^2)/2') 
+V2 = fsolve(0,mass)                // Mass of water vaporised in kg
+
+// Output Results
+mprintf('The exit velocity of air = %5.2f m/s', V2)
-- 
cgit