1 files changed, 31 insertions, 0 deletions
diff --git a/2120/CH9/EX9.4/ex9_4.sce b/2120/CH9/EX9.4/ex9_4.sce
new file mode 100755
index 000000000..fa1efa9da
--- /dev/null
+++ b/2120/CH9/EX9.4/ex9_4.sce
@@ -0,0 +1,31 @@
+// Exa 9.4
+clc;
+clear;
+close;
+// Given data
+H_w = 670.4;// in kJ/kg
+L = 2085;// kJ per kg
+T_sat = 158.8;// in degree c
+m = 4;// in kg
+x = 0.5;
+h_sen = 670.4;// in kJ/kg
+H_totalwet = m * ( h_sen + (x *L));// in kJ
+x1 = 0.95
+H_totalwet1 = m *( h_sen + (x1 *L));// in kJ
+Q1 =  H_totalwet1 - H_totalwet;// in kJ
+disp(Q1,"Part (i) The quantity of heat in case first in kJ is : ");
+// Part (b)
+x2 = 1;
+H_totaldry = m *( h_sen + (x2 *L));// in kJ
+Q2 = H_totaldry - H_totalwet;// in kJ
+disp(Q2,"Part (ii) The quantity of heat in case second in kJ is : ");
+// Part (c)
+H_totalsup = 3062.3;// in kJ per kg
+H_totalsup = m * H_totalsup;// in kJ
+Q3 = H_totalsup - H_totalwet;// in kJ
+disp(Q3,"Part (iii) The quantity of heat in case third in kJ is : ");
+// Part (d)
+H_totalsup = 2950.4;// in kj per kg
+H_totalsup = m * H_totalsup;// in kj
+Q4 = H_totalsup - H_totalwet;// in kj
+disp(Q4,"Part (iv) The quantity of heat in case forth in kJ is : ");