initial commit / add all books

8 files changed, 119 insertions, 0 deletions

diff --git a/779/CH15/EX15.1/15_1.sce b/779/CH15/EX15.1/15_1.sce
new file mode 100755
index 000000000..2d2edc8b7
--- /dev/null
+++ b/779/CH15/EX15.1/15_1.sce
@@ -0,0 +1,24 @@
+Ps = 0.033363; P = 1.0132;

+W2 = (0.622*Ps)/(P-Ps);

+hfg2 = 2439.9; hf2 = 109.1; cpa = 1.005;

+hg = 2559.9; hw1 = hg;

+T2 = 25+273; T1 = 32+273;

+W1 = (cpa*(T2-T1)+(W2*hfg2))/(hw1-hf2);

+Pw = ((W1/0.622)*P)/(1+(W1/0.622));

+disp("kg vap./kg dry air",W1,"Specific humidity is")

+disp("bar",Pw,"Partial pressure of water vapour is")

+disp("degree",24.1,"Dew point temperature is") // saturation temperature at 0.03 bar

+Psat = 0.048; // at 32 degree

+fi = Pw/Psat;

+disp("%",fi*100,"Relative humidity is")

+mu = (Pw/Ps)*((P-Ps)/(P-Pw));

+disp(mu,"Degree of saturation is")

+Pa = P-Pw;

+Ra = 0.287; Tab = T1;

+rho_a = (Pa*100)/(Ra*Tab);

+disp("kg/m3",rho_a,"Density of dry air is")

+rho_w = W1*rho_a;

+disp("kg/m3",rho_w,"Density of water vapour is")

+ta = 32; tdb = 32; tdp = 24.1;

+h = cpa*ta + W1*(hg+1.88*(tdb-tdp));

+disp("kJ/kg",h,"Enthalpy of the mixture is")

diff --git a/779/CH15/EX15.2/15_2.sce b/779/CH15/EX15.2/15_2.sce
new file mode 100755
index 000000000..79a619ce8
--- /dev/null
+++ b/779/CH15/EX15.2/15_2.sce
@@ -0,0 +1,11 @@
+Ps = 2.339; P = 100;

+W2 = (0.622*Ps)/(P-Ps);

+hfg2 = 2454.1; hf2 = 83.96; cpa = 1.005;

+hw1 = 2556.3;

+T2 = 20; T1 = 30;

+W1 = (cpa*(T2-T1)+(W2*hfg2))/(hw1-hf2);

+Pw1 = ((W1/0.622)*P)/(1+(W1/0.622));

+Ps1 = 4.246;

+fi = (Pw1/Ps1);

+disp("%",fi*100,"Relative humidity is")

+disp("kg vap./kg dry air",W1,"Humidity ratio of inlet mixture is")
\ No newline at end of file
diff --git a/779/CH15/EX15.3/15_3.sce b/779/CH15/EX15.3/15_3.sce
new file mode 100755
index 000000000..6828b651d
--- /dev/null
+++ b/779/CH15/EX15.3/15_3.sce
@@ -0,0 +1,18 @@
+Psat = 2.339;

+fi3 = 0.50;

+P = 101.3; cp = 1.005;

+Pw3 = fi3*Psat;

+Pa3 = P-Pw3;

+W3 = 0.622*(Pw3/Pa3);

+Psa1_1 = 0.7156;

+Pw1 = 0.7156;

+Pa1 = P-Pw1;

+W1 = 0.622*(Pw1/Pa1); W2 = W1;

+T3 = 293; Ra = 0.287; Pa3 = 100.13;

+va3 = (Ra*T3)/Pa3;

+SW = (W3-W1)/va3;

+t3 = 20; tsat = 9.65; hg = 2518; h4 = 10;

+t2 = ( W3*(hg+1.884*(t3-tsat))-W2*(hg-1.884*tsat) + cp*t3 - (W3-W2)*h4 )/ (cp+W2*1.884)

+disp("kg moisture/m3",SW,"Mass of spray water required is")

+disp("degree",t2,"Temperature to which air must be heated is")

+

diff --git a/779/CH15/EX15.4/15_4.sce b/779/CH15/EX15.4/15_4.sce
new file mode 100755
index 000000000..987c14ac6
--- /dev/null
+++ b/779/CH15/EX15.4/15_4.sce
@@ -0,0 +1,9 @@
+h1 = 82; h2 = 52; h3 = 47; h4 = 40;

+W1 = 0.020; W2 = 0.0115; W3 = W2;

+v1 = 0.887;

+v = 3.33; // amount of free sir circulated

+G = v/v1;

+CC = (G*(h1-h3)*3600)/14000; // in tonns

+R = G*(W1-W3);

+disp("tonnes",CC,"Capacity of the cooling coil in tonnes")

+disp("kg/s",R,"Rate of water vapour removed is")
\ No newline at end of file
diff --git a/779/CH15/EX15.5/15_5.sce b/779/CH15/EX15.5/15_5.sce
new file mode 100755
index 000000000..b989f2757
--- /dev/null
+++ b/779/CH15/EX15.5/15_5.sce
@@ -0,0 +1,8 @@
+W1 = 0.0058; W2 = 0.0187; 

+h1 = 35; h2 = 90;

+G12 = 1/2; // G12 = G1/G2 

+W3 = (W2+G12*W1)/(1+G12);

+h3 = (2/3)*h2 + (1/3)*h1;

+disp("Final condition of air is given by")

+disp("kg vap./kg dry air",W3,"W3 = ")

+disp("kJ/kg dry air",h3,"h3 = ")
\ No newline at end of file
diff --git a/779/CH15/EX15.7/15_7.sce b/779/CH15/EX15.7/15_7.sce
new file mode 100755
index 000000000..d6726bf76
--- /dev/null
+++ b/779/CH15/EX15.7/15_7.sce
@@ -0,0 +1,11 @@
+h1 = 57; h2 = h1;

+h3 = 42;

+W1 = 0.0065; W2 = 0.0088; W3 = W2;

+t2 = 34.5; v1 = 0.896;

+n = 1500; // seating capacity of hall

+a = 0.3; // amount of out door air suplied

+G = (n*a)/0.896 ; // Amount of dry air suplied

+CC = (G*(h2-h3)*60)/14000; // in tonns

+R = G*(W2-W1)*60;

+disp("tonnes",CC,"Capacity of the cooling coil in tonnes")

+disp("kg/h",R,"Capacity of humidifier")

diff --git a/779/CH15/EX15.8/15_8.sce b/779/CH15/EX15.8/15_8.sce
new file mode 100755
index 000000000..c10c0fc77
--- /dev/null
+++ b/779/CH15/EX15.8/15_8.sce
@@ -0,0 +1,15 @@
+twb1 = 15.2; twb2 = 26.7; tw3 = 30;

+h1 = 43; h2 = 83.5; hw = 84; mw = 1.15;

+W1 = 0.0088; W2 = 0.0213;

+hw3 = 125.8; hm = 84;

+G = 1;

+hw34 = (G/mw)*((h2-h1)-(W2-W1)*hw);  // hw3-hw4

+tw4 = tw3-(hw34/4.19);

+A = tw4-twb1;

+R = tw3-tw4;

+x = G*(W2-W1);

+disp("degree",tw4,"Temperature of water leaving the tower is")

+disp("kg/kg dry sir",x,"Fraction of water evoporated is")

+disp("degree",R,"Range of cooling water is")

+disp("degree",A,"Approach of cooling water is")

+

diff --git a/779/CH15/EX15.9/15_9.sce b/779/CH15/EX15.9/15_9.sce
new file mode 100755
index 000000000..22a31fe90
--- /dev/null
+++ b/779/CH15/EX15.9/15_9.sce
@@ -0,0 +1,23 @@
+Psat1 = 0.01705; hg1 = 2528.9; // at 15 degree

+Psat2 = 0.05628; hg2 = 2565.3; // At 35 degree

+fi1 = 0.55;

+Pw1 = fi1*Psat1;

+fi2 = 1;

+Pw2 = fi2*Psat2;

+P = 1;

+W1 = (0.622*Pw1)/(P-Pw1);

+W2 = (0.622*Pw2)/(P-Pw2);

+MW = W2-W1;

+t2 = 35; t1 = 15; 

+m_dot = 2.78;

+cpa = 1.005;

+h43 = 35*4.187; // h4-h3

+h5 = 14*4.187;

+m_dot_w = (-(W2-W1)*h5 - W1*hg1 + W2*hg2 + cpa*(t2-t1))/(h43) ;

+R = m_dot/m_dot_w ;

+MW = (W2-W1)*R;

+RWA = R*(1+W1);

+R = 0.287; T = 288; 

+V_dot = (RWA*R*T)/(P*1e02) ; // Pressure is in kilo Pascal

+disp("kg/s",MW,"Make up water flow rate is")

+disp("m3/s",V_dot,"Volume flow rate of air is")
\ No newline at end of file