3 files changed, 57 insertions, 54 deletions
diff --git a/632/CH11/EX11.20/example11_20.sce b/632/CH11/EX11.20/example11_20.sce
index 8eff4b35e..6a92a5400 100755
--- a/632/CH11/EX11.20/example11_20.sce
+++ b/632/CH11/EX11.20/example11_20.sce
@@ -1,6 +1,7 @@
-//clc()
-T = 273.15 - 30;//K
-//lnPs = 14.2410 - 2137.72 / (T-26.72)
-//dlnPs/dT = Hv / RT2
-Hv = 2137.72 * R * T^2 / ( T - 26.72 )^2;
+clc
+T = 273.15 - 30;//K
+R = 8.314;
+//lnPs = 14.2410 - 2137.72 / (T-26.72)
+//dlnPs/dT = Hv / RT2
+Hv = 2137.72 * R * T^2 / ( T - 26.72 )^2;
 disp("kJ/kmol",Hv,"Heat of vaporization = ")
 \ No newline at end of file
diff --git a/632/CH11/EX11.3/example11_3.sce b/632/CH11/EX11.3/example11_3.sce
index 76fcb6dbb..1f3507a1d 100755
--- a/632/CH11/EX11.3/example11_3.sce
+++ b/632/CH11/EX11.3/example11_3.sce
@@ -1,13 +1,14 @@
-//clc()
-d = 100 /1000;//m
-m = 50;//kg
-P = 1.01325*10^5;//Pa
-A = %pi * (d^2)/4;
-Fatm = P * A;
-Fwt = m * g;
-Ftotal = Fatm + Fwt;
-P = Ftotal / A;
-disp("bar",P/10^5,"(a)Pressure of the gas = ")
-z = 500/1000;//m
-w = Ftotal * z;
+clc
+d = 100 /1000;//m
+g = 9.81;
+m = 50;//kg
+P = 1.01325*10^5;//Pa
+A = %pi * (d^2)/4;
+Fatm = P * A;
+Fwt = m * g;
+Ftotal = Fatm + Fwt;
+P = Ftotal / A;
+disp("bar",P/10^5,"(a)Pressure of the gas = ")
+z = 500/1000;//m
+w = Ftotal * z;
 disp("J",w,"(b)Work done by the gas = ")
 \ No newline at end of file
diff --git a/632/CH11/EX11.38/example11_38.sce b/632/CH11/EX11.38/example11_38.sce
index 63a9d790c..007079f7c 100755
--- a/632/CH11/EX11.38/example11_38.sce
+++ b/632/CH11/EX11.38/example11_38.sce
@@ -1,37 +1,38 @@
-//clc()
-m = 1000;//kg/h (dried product)
-// S be the amount of dry solid in the product stream 
-Pmoisture1 = 4;//%
-Pmoisture2 = 0.2;//%
-S = m *(1 - P/1000);
-X1 = Pmoisture1/(100 - Pmoisture1);
-X2 = Pmoisture2/(100 - Pmoisture2);
-//let G be the weight of dry air in the air stream 
-Y1 = 0.01;//kg water/kg dry solid
-Cp = 1.507;
-Cw = 4.2;
-T1 = 298;//K
-T = 273;//K
-T2 = 333;//K
-Tg1 = 363;//K
-Tg2 = 305;//K
-Hs1 = (Cp + X1 * Cw) * (T1 - T);
-Hs2 = (Cp + X2 * Cw) * (T2 - T);
-//Hg = Cs(Tg - To) + Y*L
-//Cs = 1.005 + 1.884*Y
-L = 2502.3;//kJ/kg dry air
-Hg1 = (1.005 + 1.884 * Y1)*(Tg1 - T) + Y1 * L;
-Q = -40000;//kJ/h
-//Calculating for T2, Hg2 = 32.16 + 2562.59*Y 
-//change in enthalpy = Q
-//H1 = S * Hs1 + G * HG1 = 37814.22 + 117.17G
-//H2 = 100728.14 + G* (32.16 + 2561.59*Y)
-//change in enthalpy = Q
-//62913.92 + G *(-85.01 + 2561.59*Y) + 40000 = 0
-//102913.92 + G *(-85.01 + 2561.59*Y) = 0            (1)
-//moisture balance, S*X1 + G*Y1 = S*X2 + G*Y2
-//G*(Y-0.01) = 39.62                                 (2)
-//solving simultaneously ( 1 ) and ( 2 ), 
-Gdry = 3443;//kg/h
-G = Gdry*(1 + Y1);
-disp("kg/h",G,"Air requirement = ")
+//clc()
+m = 1000;//kg/h (dried product)
+// S be the amount of dry solid in the product stream 
+Pmoisture1 = 4;//%
+Pmoisture2 = 0.2;//%
+P = 1;
+S = m *(1 - P/1000);
+X1 = Pmoisture1/(100 - Pmoisture1);
+X2 = Pmoisture2/(100 - Pmoisture2);
+//let G be the weight of dry air in the air stream 
+Y1 = 0.01;//kg water/kg dry solid
+Cp = 1.507;
+Cw = 4.2;
+T1 = 298;//K
+T = 273;//K
+T2 = 333;//K
+Tg1 = 363;//K
+Tg2 = 305;//K
+Hs1 = (Cp + X1 * Cw) * (T1 - T);
+Hs2 = (Cp + X2 * Cw) * (T2 - T);
+//Hg = Cs(Tg - To) + Y*L
+//Cs = 1.005 + 1.884*Y
+L = 2502.3;//kJ/kg dry air
+Hg1 = (1.005 + 1.884 * Y1)*(Tg1 - T) + Y1 * L;
+Q = -40000;//kJ/h
+//Calculating for T2, Hg2 = 32.16 + 2562.59*Y 
+//change in enthalpy = Q
+//H1 = S * Hs1 + G * HG1 = 37814.22 + 117.17G
+//H2 = 100728.14 + G* (32.16 + 2561.59*Y)
+//change in enthalpy = Q
+//62913.92 + G *(-85.01 + 2561.59*Y) + 40000 = 0
+//102913.92 + G *(-85.01 + 2561.59*Y) = 0            (1)
+//moisture balance, S*X1 + G*Y1 = S*X2 + G*Y2
+//G*(Y-0.01) = 39.62                                 (2)
+//solving simultaneously ( 1 ) and ( 2 ), 
+Gdry = 3443;//kg/h
+G = Gdry*(1 + Y1);
+disp("kg/h",G,"Air requirement = ")
+\ No newline at end of file