summaryrefslogtreecommitdiff
path: root/3685/CH15
diff options
context:
space:
mode:
Diffstat (limited to '3685/CH15')
-rw-r--r--3685/CH15/EX15.1/Ex15_1.sce38
-rw-r--r--3685/CH15/EX15.1/Ex15_1.txt11
-rw-r--r--3685/CH15/EX15.10/Ex15_10.sce25
-rw-r--r--3685/CH15/EX15.10/Ex15_10.txt6
-rw-r--r--3685/CH15/EX15.11/Ex15_11.sce24
-rw-r--r--3685/CH15/EX15.11/Ex15_11.txt6
-rw-r--r--3685/CH15/EX15.12/Ex15_12.sce29
-rw-r--r--3685/CH15/EX15.12/Ex15_12.txt8
-rw-r--r--3685/CH15/EX15.13/Ex15_13.sce32
-rw-r--r--3685/CH15/EX15.13/Ex15_13.txt5
-rw-r--r--3685/CH15/EX15.2/Ex15_2.sce19
-rw-r--r--3685/CH15/EX15.2/Ex15_2.txt5
-rw-r--r--3685/CH15/EX15.3/Ex15_3.sce28
-rw-r--r--3685/CH15/EX15.3/Ex15_3.txt5
-rw-r--r--3685/CH15/EX15.4/Ex15_4.sce20
-rw-r--r--3685/CH15/EX15.4/Ex15_4.txt5
-rw-r--r--3685/CH15/EX15.5/Ex15_5.sce15
-rw-r--r--3685/CH15/EX15.5/Ex15_5.txt6
-rw-r--r--3685/CH15/EX15.6/Ex15_6.sce15
-rw-r--r--3685/CH15/EX15.6/Ex15_6.txt8
-rw-r--r--3685/CH15/EX15.7/Ex15_7.sce20
-rw-r--r--3685/CH15/EX15.7/Ex15_7.txt5
-rw-r--r--3685/CH15/EX15.8/Ex15_8.sce26
-rw-r--r--3685/CH15/EX15.8/Ex15_8.txt7
-rw-r--r--3685/CH15/EX15.9/Ex15_9.sce20
-rw-r--r--3685/CH15/EX15.9/Ex15_9.txt4
26 files changed, 392 insertions, 0 deletions
diff --git a/3685/CH15/EX15.1/Ex15_1.sce b/3685/CH15/EX15.1/Ex15_1.sce
new file mode 100644
index 000000000..91dc723cf
--- /dev/null
+++ b/3685/CH15/EX15.1/Ex15_1.sce
@@ -0,0 +1,38 @@
+clc
+Ps = 0.033363 //Saturation pressure in bar
+P = 1.0132 // Atmospheric pressure in bar
+W2 = (0.622*Ps)/(P-Ps) // mass fraction of moisture
+hfg2 = 2439.9 // Latent heat of vaporization in kJ/kg
+hf2 = 109.1 // Enthalpy of liquid moisture in kJ/kg
+cpa = 1.005 // Constant pressure heat capacity in kJ/kg
+hg = 2559.9 // Enthalpy of gas moisture in kJ/kg
+hw1 = hg // constant enthalpy
+T2 = 26 // wbt in degree Celsius
+T1 = 32 // dbt in degree Celsius
+W1 = (cpa*(T2-T1)+(W2*hfg2))/(hw1-hf2)
+Pw = ((W1/0.622)*P)/(1+(W1/0.622))
+
+Psat = 0.048 // Saturation pressure in bar at 32 degree
+fi = Pw/Psat // Relative humidity
+
+mu = (Pw/Psat)*((P-Psat)/(P-Pw)) // Degree of Saturation
+Pa = P-Pw // Air pressure
+Ra = 0.287 // Gase constant
+Tdb = T1+273 // dbt in K
+rho_a = (Pa*100)/(Ra*Tdb) // Density of air
+rho_w = W1*rho_a // Water vapor density
+ta = 32 // air temperature in degree Celsius
+tdb = 32 // dbt in degree Celsius
+tdp = 24.1// Dew point temperature in degree Celsius
+h = cpa*ta + W1*(hg+1.88*(tdb-tdp))
+printf("\n Example 15.1\n")
+printf("\n Specific humidity is %f kg vap./kg dry air",W1)
+printf("\n Partial pressure of water vapour is %f bar",Pw)
+printf("\n Dew point temperature is %f degree celcius",tdp)
+printf("\n Relative humidity is %f percent ",fi*100)
+printf("\n Degree of saturation is %f ",mu)
+printf("\n Density of dry air is %f kg/m^3",rho_a)
+printf("\n Density of water vapor is %f kg/m^3",rho_w)
+printf("\n Enthalpy of the mixture is %f kJ/kg",h)
+//The answers vary due to round off error
+
diff --git a/3685/CH15/EX15.1/Ex15_1.txt b/3685/CH15/EX15.1/Ex15_1.txt
new file mode 100644
index 000000000..8cb1f7ce5
--- /dev/null
+++ b/3685/CH15/EX15.1/Ex15_1.txt
@@ -0,0 +1,11 @@
+
+ Example 15.1
+
+ Specific humidity is 0.018624 kg vap./kg dry air
+ Partial pressure of water vapour is 0.029456 bar
+ Dew point temperature is 24.100000 degree celcius
+ Relative humidity is 61.366059 percent
+ Degree of saturation is 0.602093
+ Density of dry air is 1.123830 kg/m^3
+ Density of water vapor is 0.020930 kg/m^3
+ Enthalpy of the mixture is 80.112696 kJ/kg \ No newline at end of file
diff --git a/3685/CH15/EX15.10/Ex15_10.sce b/3685/CH15/EX15.10/Ex15_10.sce
new file mode 100644
index 000000000..aeab29118
--- /dev/null
+++ b/3685/CH15/EX15.10/Ex15_10.sce
@@ -0,0 +1,25 @@
+clc
+// Given that
+c = 75 // Capacity of classroom in no of perasons
+DBT1 = 10 // Outdoor Dry bulb temperature in degree celsius
+WBT1 = 8 // Outdoor Wet bulb temperature in degree celsius
+DBT2 = 20 // Indoor Dry bulb temperature in degree celsius
+RH2 = 50 // Relative humidity in percentage
+x =0.5 // Bypass factor
+f = 0.3 // Air flow rate per person in cmm
+printf("\n Example 15.10 \n")
+// From the psychrometric chart
+W1 = 0.0058 // In kg moisture/kg d.a.
+h1 = 24.5 // In kJ/kg
+h2 = 39.5 // In kJ/kg
+h3 = h2
+W3 = 0.0074 // In kg moisture/kg d.a.
+t2 = 25 // In degree celsius
+v1 = .81 // In m^3/kg d.a.
+G = f*c/v1
+C = G*(h2-h1)/60
+t4 = (t2-x*DBT1)/(1-x)
+ts = t4
+C_H = G*(W3-W1)*60
+printf("\n Capacity of heating coil is %f kW,\n Surface temperature of heating coil is %d degree celsius,\n Capacity of humidifier is %f kg/h ",C,ts,C_H)
+
diff --git a/3685/CH15/EX15.10/Ex15_10.txt b/3685/CH15/EX15.10/Ex15_10.txt
new file mode 100644
index 000000000..1c8eac065
--- /dev/null
+++ b/3685/CH15/EX15.10/Ex15_10.txt
@@ -0,0 +1,6 @@
+
+ Example 15.10
+
+ Capacity of heating coil is 6.944444 kW,
+ Surface temperature of heating coil is 40 degree celsius,
+ Capacity of humidifier is 2.666667 kg/h \ No newline at end of file
diff --git a/3685/CH15/EX15.11/Ex15_11.sce b/3685/CH15/EX15.11/Ex15_11.sce
new file mode 100644
index 000000000..1df943591
--- /dev/null
+++ b/3685/CH15/EX15.11/Ex15_11.sce
@@ -0,0 +1,24 @@
+
+clc
+// Given that
+DBT = 31 // Dry bulb temperature in degree celsius
+WBT = 18.5 // Wet bulb temperature in degree celsius
+t = 4.4 // Effective surface temperature of coil in degree celsius
+RE = 12.5 // Refrigeration effect by the coil in kW
+f= 39.6 // Air flow rate in cmm
+printf("\n Example 15.11 \n")
+// From the fig. given in the example
+ws = 5.25 //In g/kg d.a.
+hs = 17.7 //In kJ/kg d.a.
+v1 = 0.872 // In m^3/kg d.a.
+h1 = 52.5 // In kJ/kg d.a.
+w1 = 8.2 // In g/kg d.a.
+G = f/v1
+h2 = h1-(RE*60)/G
+w2 = w1-((h1-h2)/(h1-hs))*(w1-ws)
+// From the psychrometric chart
+t2 = 18.6 // In degree celsius
+t_ = 12.5 // In degree celsius
+x = (h2-hs)/(h1-hs)
+printf("\n DBT of air leaving the coil is %f degree celsius,\n WBT of air leaving the coil is %f degree celsius,\n Coil bypass factor is %f ",t2,t_,x)
+// Answer varies due to round off error
diff --git a/3685/CH15/EX15.11/Ex15_11.txt b/3685/CH15/EX15.11/Ex15_11.txt
new file mode 100644
index 000000000..ce931441d
--- /dev/null
+++ b/3685/CH15/EX15.11/Ex15_11.txt
@@ -0,0 +1,6 @@
+
+ Example 15.11
+
+ DBT of air leaving the coil is 18.600000 degree celsius,
+ WBT of air leaving the coil is 12.500000 degree celsius,
+ Coil bypass factor is 0.525427 \ No newline at end of file
diff --git a/3685/CH15/EX15.12/Ex15_12.sce b/3685/CH15/EX15.12/Ex15_12.sce
new file mode 100644
index 000000000..237e297a9
--- /dev/null
+++ b/3685/CH15/EX15.12/Ex15_12.sce
@@ -0,0 +1,29 @@
+
+clc
+// Given that
+c = 75 // Capacity of classroom in no of persons
+DBT1 = 35 // Outdoor Dry bulb temperature in degree celsius
+RH1 = 70 // Outdoor relative humidity in percentage
+DBT2 = 20 // Indoor Dry bulb temperature in degree celsius
+RH1 = 60 // Indoor relative humidity in percentage
+DPT = 10 // Cooling coil dew point temperature in degree celsius
+x =0.25 // Bypass factor
+f = 300 // Air flow rate in cmm
+printf("\n Example 15.12 \n")
+// From the psychrometric chart
+W1 = 0.0246 // In kg vap./kg d.a.
+h1 = 98 // In kJ/kg
+v1 = .907 // In m^3/kg d.a.
+h3 = 42 // In kJ/kg
+W3 = 0.0088 // In kg moisture/kg d.a.
+h2 = 34 // In kJ/kg
+hs = 30 // In kJ/kg
+t2 = 12 // In degree celsius
+G = f/v1
+C = G*(h1-h2)/(60*3.5)
+X = (h2-hs)/(h1-hs)
+C_ = G*(h3-h2)/60
+t4 = (DBT2-x*t2)/(1-x)
+C_H = G*(W1-W3)
+printf("\n Capacity of cooling coil is %f tonnes,\n Bypass factor of cooling coil is %f,\n Capacity of heating coil is %f kW,\n Surface temperature of heating coil is %f degree celsius,\n Mass of water vapor removed is %f kg/min ",C,X,C_,t4,C_H)
+//Answers varies due to round off error
diff --git a/3685/CH15/EX15.12/Ex15_12.txt b/3685/CH15/EX15.12/Ex15_12.txt
new file mode 100644
index 000000000..0af497396
--- /dev/null
+++ b/3685/CH15/EX15.12/Ex15_12.txt
@@ -0,0 +1,8 @@
+
+ Example 15.12
+
+ Capacity of cooling coil is 100.803276 tonnes,
+ Bypass factor of cooling coil is 0.058824,
+ Capacity of heating coil is 44.101433 kW,
+ Surface temperature of heating coil is 22.666667 degree celsius,
+ Mass of water vapor removed is 5.226020 kg/min \ No newline at end of file
diff --git a/3685/CH15/EX15.13/Ex15_13.sce b/3685/CH15/EX15.13/Ex15_13.sce
new file mode 100644
index 000000000..a2611888c
--- /dev/null
+++ b/3685/CH15/EX15.13/Ex15_13.sce
@@ -0,0 +1,32 @@
+clc
+// at 15 degree Celsius
+Psat1 = 0.01705 // Saturation pressure in bar
+hg1 = 2528.9 // Enthalpy in kJ/kg
+// At 35 degree Celsius
+Psat2 = 0.05628 // Saturation pressure in bar
+hg2 = 2565.3 // Enthalpy in kJ/kg
+fi1 = 0.55// Humidity ratio at state 1
+Pw1 = fi1*Psat1 // water vapor pressure at state 1
+fi2 = 1 // Humidity ratio at state 2
+Pw2 = fi2*Psat2 // water vapor pressure at state 2
+P = 0.1 // Atmospheric pressure in MPa
+W1 = (0.622*Pw1)/(P*10-Pw1)
+W2 = (0.622*Pw2)/(P*10-Pw2)
+MW = W2-W1 // unit mass flow rate of water
+t2 = 35 // Air exit temperature in degree Celsius
+t1 = 14 // make up water inlet temperature in degree Celsius
+m_dot = 2.78 // water flow rate in kg/s
+cpa = 1.005 // Constant pressure heat capacity ratio in kJ/kg
+h43 = 35*4.187 // Enthalpy change
+h5 = 14*4.187 // Enthalpy at state 5in kJ/kg
+m_dot_w = (-(W2-W1)*h5 - W1*hg1 + W2*hg2 + cpa*(t2-t1))/(h43)
+R = m_dot/m_dot_w
+MW = (W2-W1)*R //Make up water flow rate
+RWA = R*(1+W1)
+R = 0.287 // Gas constant
+V_dot = (RWA*R*(t1+273))/(P*1e03) // Volume flow rate of air
+printf("\n Example 15.13\n")
+printf("\n Make up water flow rate is %f kg/s",MW)
+printf("\n Volume flow rate of air is %f m^3/s",V_dot)
+//The answers vary due to round off error
+
diff --git a/3685/CH15/EX15.13/Ex15_13.txt b/3685/CH15/EX15.13/Ex15_13.txt
new file mode 100644
index 000000000..2afb81ba3
--- /dev/null
+++ b/3685/CH15/EX15.13/Ex15_13.txt
@@ -0,0 +1,5 @@
+
+ Example 15.13
+
+ Make up water flow rate is 0.127715 kg/s
+ Volume flow rate of air is 3.390952 m^3/s \ No newline at end of file
diff --git a/3685/CH15/EX15.2/Ex15_2.sce b/3685/CH15/EX15.2/Ex15_2.sce
new file mode 100644
index 000000000..1850b3861
--- /dev/null
+++ b/3685/CH15/EX15.2/Ex15_2.sce
@@ -0,0 +1,19 @@
+clc
+Ps = 2.339 // Satutation pressure in kPa
+P = 100 // Atmospheric pressure in kPa
+W2 = (0.622*Ps)/(P-Ps) // Specific humidity
+hfg2 = 2454.1 // Latent heat of vaporization in kJ/kg
+hf2 = 83.96 // Enthalpy of fluid in kJ/kg
+cpa = 1.005 // COnstant pressure heat capacity of air
+hw1 = 2556.3// ENthalpy of water
+T2 = 20 // Exit tempeature of mixture in degree Celsius
+T1 = 30 // Inlet tempeature of mixture in degree Celsius
+W1 = (cpa*(T2-T1)+(W2*hfg2))/(hw1-hf2) // Specific humidity at inlet
+Pw1 = ((W1/0.622)*P)/(1+(W1/0.622)) // pressure due to moisture
+Ps1 = 4.246 // Saturation pressure in kPa
+fi = (Pw1/Ps1) // Humidity ratio
+
+printf("\n Example 15.2\n")
+printf("\n Humidity ratio of inlet mixture is %f kg vap./kg dry air",W1)
+printf("\n Relative humidity is %f percent",fi*100)
+//The answers vary due to round off error
diff --git a/3685/CH15/EX15.2/Ex15_2.txt b/3685/CH15/EX15.2/Ex15_2.txt
new file mode 100644
index 000000000..243449dac
--- /dev/null
+++ b/3685/CH15/EX15.2/Ex15_2.txt
@@ -0,0 +1,5 @@
+
+ Example 15.2
+
+ Humidity ratio of inlet mixture is 0.010722 kg vap./kg dry air
+ Relative humidity is 39.910625 percent \ No newline at end of file
diff --git a/3685/CH15/EX15.3/Ex15_3.sce b/3685/CH15/EX15.3/Ex15_3.sce
new file mode 100644
index 000000000..4bf036a26
--- /dev/null
+++ b/3685/CH15/EX15.3/Ex15_3.sce
@@ -0,0 +1,28 @@
+clc
+Psat = 2.339 // Saturation pressure in kPa
+fi3 = 0.50 // Humidity ratio
+P = 101.3 // Atmospheric pressure in kPa
+cp = 1.005 // Constant pressure heat addition in kJ/kg
+Pw3 = fi3*Psat // Vapor pressure
+Pa3 = P-Pw3 // Air pressure
+W3 = 0.622*(Pw3/Pa3) // Specific humidity
+Psa1_1 = 0.7156 // Saturation pressure in kPa
+Pw1 = 0.7156 // moister pressure in kPa
+Pa1 = P-Pw1 // Air pressure
+W1 = 0.622*(Pw1/Pa1) // Specific humidity
+W2 = W1 // Constant humidity process
+T3 = 293 // Temperature at state 3 in K
+Ra = 0.287 // Gas constant
+Pa3 = 100.13 // Air pressure at state 3
+va3 = (Ra*T3)/Pa3 // volume of air at state 3
+SW = (W3-W1)/va3 // spray water
+tsat = 9.65 // Saturation temperature in K
+hg = 2518 // Enthalpy of gas in kJ/kg
+h4 = 10 // Enthalpy at state 4 in kJ/kg
+t3 = T3-273
+t2 = ( W3*(hg+1.884*(t3-tsat))-W2*(hg-1.884*tsat) + cp*t3 - (W3-W2)*h4 )/ (cp+W2*1.884)
+printf("\n Example 15.3\n")
+printf("\n Mass of spray water required is %f kg moisture/m^3",SW)
+printf("\n Temperature to which air must be heated is %f degree celcius",t2)
+//The answers vary due to round off error
+
diff --git a/3685/CH15/EX15.3/Ex15_3.txt b/3685/CH15/EX15.3/Ex15_3.txt
new file mode 100644
index 000000000..7c043b7b0
--- /dev/null
+++ b/3685/CH15/EX15.3/Ex15_3.txt
@@ -0,0 +1,5 @@
+
+ Example 15.3
+
+ Mass of spray water required is 0.003381 kg moisture/m^3
+ Temperature to which air must be heated is 27.082721 degree celcius \ No newline at end of file
diff --git a/3685/CH15/EX15.4/Ex15_4.sce b/3685/CH15/EX15.4/Ex15_4.sce
new file mode 100644
index 000000000..a426ce861
--- /dev/null
+++ b/3685/CH15/EX15.4/Ex15_4.sce
@@ -0,0 +1,20 @@
+clc
+h1 = 82 // Enthalpy at state 1 in kJ/kg
+h2 = 52 // Enthalpy at state 2 in kJ/kg
+h3 = 47 // Enthalpy at state 3 in kJ/kg
+h4 = 40// Enthalpy at state 4 in kJ/kg
+W1 = 0.020 // Specific humidity at state 1
+W2 = 0.0115// Specific humidity at state 2
+W3 = W2 // Constant humidity process
+v1 = 0.887 // Specific volume at state 1
+v = 3.33 // amount of free sir circulated
+G = v/v1 // air flow rate
+CC = (G*(h1-h3)*3600)/14000 // Capacity of the heating Cooling coil
+R = G*(W1-W3) // Rate of water vapor removal
+HC = G*(h2-h3) //Capacity of the heating coil
+printf("\n Example 15.4\n")
+printf("\n Capacity of the cooling coil is %f tonnes",CC)
+printf("\n Capacity of the heating coil is %f kW",HC)
+printf("\n Rate of water vapor removal is %f kg/s",R)
+//The answers vary due to round off error
+
diff --git a/3685/CH15/EX15.4/Ex15_4.txt b/3685/CH15/EX15.4/Ex15_4.txt
new file mode 100644
index 000000000..f6c0fcc69
--- /dev/null
+++ b/3685/CH15/EX15.4/Ex15_4.txt
@@ -0,0 +1,5 @@
+ Example 15.4
+
+ Capacity of the cooling coil is 33.788050 tonnes
+ Capacity of the heating coil is 18.771139 kW
+ Rate of water vapor removal is 0.031911 kg/s \ No newline at end of file
diff --git a/3685/CH15/EX15.5/Ex15_5.sce b/3685/CH15/EX15.5/Ex15_5.sce
new file mode 100644
index 000000000..488ca095a
--- /dev/null
+++ b/3685/CH15/EX15.5/Ex15_5.sce
@@ -0,0 +1,15 @@
+clc
+W1 = 0.0058 // Humidity ratio for first stream
+W2 = 0.0187 // Humidity ratio for second stream
+h1 = 35 // Enthalpy of first stream in kJ/kg
+h2 = 90// Enthalpy of second stream in kJ/kg
+G12 = 1/2 //ratio
+W3 = (W2+G12*W1)/(1+G12) // Final humidity ratio of mixture
+h3 = (2/3)*h2 + (1/3)*h1// Final enthalpy of mixture
+
+printf("\n Example 15.5 \n")
+printf("\n Final condition of air is given by")
+printf("\n W3 = %f kg vap./kg dry air",W3)
+printf("\n h3 = %f kJ/kg dry air",h3)
+//The answers vary due to round off error
+
diff --git a/3685/CH15/EX15.5/Ex15_5.txt b/3685/CH15/EX15.5/Ex15_5.txt
new file mode 100644
index 000000000..346d1bfbe
--- /dev/null
+++ b/3685/CH15/EX15.5/Ex15_5.txt
@@ -0,0 +1,6 @@
+
+ Example 15.5
+
+ Final condition of air is given by
+ W3 = 0.014400 kg vap./kg dry air
+ h3 = 71.666667 kJ/kg dry air \ No newline at end of file
diff --git a/3685/CH15/EX15.6/Ex15_6.sce b/3685/CH15/EX15.6/Ex15_6.sce
new file mode 100644
index 000000000..40eaaa1f2
--- /dev/null
+++ b/3685/CH15/EX15.6/Ex15_6.sce
@@ -0,0 +1,15 @@
+clc
+// Given that
+t = 21 // Temperature in degreee celsius
+w = 20 // Relative humidity in percentage
+t_ = 21 // Final temperature of air in degree celsius
+printf("\n Example 15.6 \n")
+// From the psychrometric chart
+T2 = 38.5 // In degree celsius
+h1_3 = 60.5-42 // In kJ/kg
+fi3 = 53 // In percentage
+t4 = 11.2 // In degree celsius
+W1_2 = 0.0153-0.0083 // In kg vap /kg dry air
+printf("\n The temperature of air at the end of the drying process is %f degree celsius,\n Heat rejected during the cooling process is %f kJ/kg,\n The relative humidity is %f percent,\n The dew point temperature at the end of drying process is %f degree celsius,\n The moisture removed during the drying process is %f kg vap/kg dry air",T2,h1_3,fi3,t4,W1_2)
+
+
diff --git a/3685/CH15/EX15.6/Ex15_6.txt b/3685/CH15/EX15.6/Ex15_6.txt
new file mode 100644
index 000000000..ca8b19cd5
--- /dev/null
+++ b/3685/CH15/EX15.6/Ex15_6.txt
@@ -0,0 +1,8 @@
+
+ Example 15.6
+
+ The temperature of air at the end of the drying process is 38.500000 degree celsius,
+ Heat rejected during the cooling process is 18.500000 kJ/kg,
+ The relative humidity is 53.000000 percent,
+ The dew point temperature at the end of drying process is 11.200000 degree celsius,
+ The moisture removed during the drying process is 0.007000 kg vap/kg dry air \ No newline at end of file
diff --git a/3685/CH15/EX15.7/Ex15_7.sce b/3685/CH15/EX15.7/Ex15_7.sce
new file mode 100644
index 000000000..823519057
--- /dev/null
+++ b/3685/CH15/EX15.7/Ex15_7.sce
@@ -0,0 +1,20 @@
+clc
+h1 = 57 // Enthalpy at state 1 in kJ/kg
+h2 = h1 // Isenthalpic process
+h3 = 42 // Enthalpy at state 3 in kJ/kg
+W1 = 0.0065 // Humidity ratio at sate 1
+W2 = 0.0088 // Humidity ratio at sate 2
+W3 = W2 // Constant humidity ratio process
+t2 = 34.5 // Temperature at state 2
+v1 = 0.896// Specific volume at state 1 in m^3/kg
+n = 1500 // seating capacity of hall
+a = 0.3 // amount of outdoor air supplied m^3 per person
+G = (n*a)/0.896 // Amount of dry air supplied
+CC = (G*(h2-h3)*60)/14000 // Cooling capacity
+R = G*(W2-W1)*60 // Capacity of humidifier
+
+printf("\n Example 15.7 \n")
+printf("\n Capacity of the cooling coil is %f tonnes",CC)
+printf("\n Capacity of humidifier is %f kg/h",R)
+//The answers vary due to round off error
+
diff --git a/3685/CH15/EX15.7/Ex15_7.txt b/3685/CH15/EX15.7/Ex15_7.txt
new file mode 100644
index 000000000..c433e2143
--- /dev/null
+++ b/3685/CH15/EX15.7/Ex15_7.txt
@@ -0,0 +1,5 @@
+
+ Example 15.7
+
+ Capacity of the cooling coil is 32.286352 tonnes
+ Capacity of humidifier is 69.308036 kg/h \ No newline at end of file
diff --git a/3685/CH15/EX15.8/Ex15_8.sce b/3685/CH15/EX15.8/Ex15_8.sce
new file mode 100644
index 000000000..d966d9ca3
--- /dev/null
+++ b/3685/CH15/EX15.8/Ex15_8.sce
@@ -0,0 +1,26 @@
+clc
+twb1 = 15.2// Wbt in degree Celsius
+twb2 = 26.7// Wbt in degree Celsius
+tw3 = 30 // Temperature at state 3 in degree Celsius
+h1 = 43 // Enthalpy at state 1 in kJ/kg
+h2 = 83.5 // Enthalpy at state 2 in kJ/kg
+hw = 84 // Enthalpy of water in kJ/kg
+mw = 1.15 // mass flow rate of water in kg/s
+W1 = 0.0088 // Humidity ratio of inlet stream
+W2 = 0.0213 // Humidity ratio of exit stream
+hw3 = 125.8 // Enthalpy of water entering tower in kJ/kg
+hm = 84 // Enthalpy of make up water in kJ/kg
+G = 1 // mass flow rate of dry air in kg/s
+hw34 = (G/mw)*((h2-h1)-(W2-W1)*hw) // Enthalpy change
+tw4 = tw3-(hw34/4.19) // Temperature of water leaving the tower
+A = tw4-twb1 //Approach of cooling water
+R = tw3-tw4 //Range of cooling water
+x = G*(W2-W1) //Fraction of water evaporated
+
+printf("\n Example 15.8\n")
+printf("\n Temperature of water leaving the tower is %f degree celcius",tw4)
+printf("\n Range of cooling water is %f degree Celsius",R)
+printf("\n Approach of cooling water is %f degree celcius",A)
+printf("\n Fraction of water evaporated is %f kg/kg dry air",x)
+//The answers vary due to round off error
+
diff --git a/3685/CH15/EX15.8/Ex15_8.txt b/3685/CH15/EX15.8/Ex15_8.txt
new file mode 100644
index 000000000..d96da0aab
--- /dev/null
+++ b/3685/CH15/EX15.8/Ex15_8.txt
@@ -0,0 +1,7 @@
+
+ Example 15.8
+
+ Temperature of water leaving the tower is 21.812805 degree celcius
+ Range of cooling water is 8.187195 degree Celsius
+ Approach of cooling water is 6.612805 degree celcius
+ Fraction of water evaporated is 0.012500 kg/kg dry air \ No newline at end of file
diff --git a/3685/CH15/EX15.9/Ex15_9.sce b/3685/CH15/EX15.9/Ex15_9.sce
new file mode 100644
index 000000000..77e1f0735
--- /dev/null
+++ b/3685/CH15/EX15.9/Ex15_9.sce
@@ -0,0 +1,20 @@
+clc
+// Given that
+DBT = 40 // Dry bulb temperature in degree celsius
+DBT_ = 25 // Dry bulb temperature after cooling and dehumidification in degree celsius
+RH = 70 // Relative humidity in percentage
+f = 30 // Air flow rate in cmm
+printf("\n Example 15.9 \n")
+// From the psychrometric chart
+v1 = 0.9125 // In m^3/kg
+G = f/v1
+h5 = 41.5 // In kJ/kg
+W1 = 0.0182 // In kg vapor/kg dry air
+h1 = 86 // In kJ/kg d.a.
+W2 = 0.0136 // In kg vapor/kg dry air
+h2 = 60 // In kJ/kg
+L = G*(h1-h2)/3.5
+Mo = G*(W1-W2)
+x = (h2-h5)/(h1-h5)
+printf("\n Bypass factor of coolin coil is %f ",x)
+// Answer veries due to round off error
diff --git a/3685/CH15/EX15.9/Ex15_9.txt b/3685/CH15/EX15.9/Ex15_9.txt
new file mode 100644
index 000000000..cc2acd8fc
--- /dev/null
+++ b/3685/CH15/EX15.9/Ex15_9.txt
@@ -0,0 +1,4 @@
+
+ Example 15.9
+
+ Bypass factor of coolin coil is 0.415730 \ No newline at end of file