1 files changed, 40 insertions, 0 deletions
diff --git a/2705/CH5/EX5.17/Ex5_17.sce b/2705/CH5/EX5.17/Ex5_17.sce
new file mode 100755
index 000000000..187f6250a
--- /dev/null
+++ b/2705/CH5/EX5.17/Ex5_17.sce
@@ -0,0 +1,40 @@
+clear;
+clc;
+disp('Example 5.17');
+
+//  aim : To determine 
+//  the partial pressure of the air and steam, and the mass of the air
+
+//  Given values
+P1 = 660;//  vaccum gauge pressure on condenser [mmHg]
+P = 765;//  atmospheric pressure, [mmHg]
+x = .8;//  dryness fraction 
+T = 273+41.5;//  temperature,[K]
+ms_dot = 1500;//  condense rate of steam,[kg/h]
+R = .29;//  [kJ/kg]
+
+//  solution
+Pa = (P-P1)*.1334;// absolute pressure,[kN/m^2]
+// from steam table, at 41.5 C partial pressure of steam is
+Ps = 8;//  [kN/m^2]
+//  by dalton's law, partial pressure of air is
+Pg = Pa-Ps;//  [kN/m^2]
+
+mprintf('\n The partial pressure of the air in the condenser is  =  %f  kN/m^2\n',Pg);
+mprintf('\n The partial pressure of the steam in the condenser is  =  %f kN/m^2\n',Ps);
+
+//  also
+vg = 18.1;//  [m^3/kg]
+//  so
+V = x*vg;//  [m^3/kg]
+//  The air associated with 1 kg of the steam will occupiy this same volume
+//  for air, Pg*V=m*R*T,so
+m = Pg*V/(R*T);//  [kg/kg steam]
+//  hence
+ma = m*ms_dot;//  [kg/h]
+
+mprintf('\n The mass of air which will associated with this steam is  =  %f  kg\n',ma);
+
+// There is misprint in book
+
+//  End