1 files changed, 19 insertions, 0 deletions
diff --git a/2120/CH9/EX9.7/ex9_7.sce b/2120/CH9/EX9.7/ex9_7.sce
new file mode 100755
index 000000000..5b73f8cc3
--- /dev/null
+++ b/2120/CH9/EX9.7/ex9_7.sce
@@ -0,0 +1,19 @@
+//Exa 9.7
+clc;
+clear;
+close;
+// Given data
+W = 21;// in kg
+w_wp = 2;// in kg
+h1 = 781.15;// in kJ/kg
+L1 = 1998.5;// in kJ/kg
+m = 2;// in kg
+h2 = 420.5;// in kJ/kg
+L = 2255.9;// in kJ/kg
+t_sat = 100.4;// in degree c
+t1 = 110;// in degree c
+C_ps = 2;// in kJ/kgK
+x1 = W / (W + w_wp);
+x2 = (h2 + L + m * (t1-t_sat) - h1)/ L1;
+x = x1 * x2;
+disp(x,"The dryness fraction for sample steam is");