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

---
 2120/CH9/EX9.10/ex9_10.sce | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100755 2120/CH9/EX9.10/ex9_10.sce

(limited to '2120/CH9/EX9.10/ex9_10.sce')

diff --git a/2120/CH9/EX9.10/ex9_10.sce b/2120/CH9/EX9.10/ex9_10.sce
new file mode 100755
index 000000000..726dcc9fe
--- /dev/null
+++ b/2120/CH9/EX9.10/ex9_10.sce
@@ -0,0 +1,21 @@
+// Exa 9.10
+clc;
+clear;
+close;
+// Given data
+T_sat = 179.88;// in degree c
+T_sat = T_sat + 273;// in k
+T_sup = 200;// in degree c
+T_sup = T_sup + 273;// in k
+L = 2013.6;// in kJ/kg
+C_ps = 2.326;
+C_pw = 1;
+x = 0.8;
+phi_wet = C_pw *log(T_sat/273) + ( (x * L)/T_sat);// in kJ/kg-K
+disp(phi_wet,"Entropy of wet steam in kJ/kg-K is");
+// Part (b)
+phi_dry =C_pw * log(T_sat/273)+L/T_sat;// in kJ/kg
+disp(phi_dry,"Entropy of dry and saturated steam in kJ/kg-K is");
+// Part (c)
+phi_sup = phi_dry+C_ps *log(T_sup/T_sat);// in kJ/kg
+disp(phi_sup,"Entropy at 200°C in kJ/kg-K is :");
-- 
cgit