1 files changed, 32 insertions, 0 deletions
diff --git a/1919/CH4/EX4.9/Ex4_9.sce b/1919/CH4/EX4.9/Ex4_9.sce
new file mode 100755
index 000000000..74eb21af7
--- /dev/null
+++ b/1919/CH4/EX4.9/Ex4_9.sce
@@ -0,0 +1,32 @@
+
+// Theory and Problems of Thermodynamics
+// Chapter 4
+// Energy Analysis of Process
+// Example 9
+
+clear ;clc;
+
+//Given data
+T_cal = 110             // Calorimeter Temperature in C
+P_cal = 0.1             // Calorimeter Pressure in MPa  
+P = 0.5                 // Pressure wet steam in MPa  
+
+// from superheated steam tables at P = 0.1 MPa and T = 110
+h2 = 2696.24         // obtained from interpolation units kJ/kg
+// from saturated steam tables at P = 0.5 MPa  
+h_f = 640.23        // units kJ/kg
+h_fg = 2108.5        // units kJ/kg
+
+// Calculation
+h1 = h2                 // isenthalpic process
+X = (h1 - h_f)/h_fg     // quality of wet steam
+
+
+// Output Results
+mprintf('Quality of wet steam = %6.3f',X)
+
+
+
+
+
+