7 files changed, 197 insertions, 0 deletions
diff --git a/2870/CH14/EX14.1/Ex14_1.sce b/2870/CH14/EX14.1/Ex14_1.sce
new file mode 100755
index 000000000..aa258e1a4
--- /dev/null
+++ b/2870/CH14/EX14.1/Ex14_1.sce
@@ -0,0 +1,30 @@
+clc;clear;
+//Example 14.1
+
+//given data
+V=5*5*3;//volume of the room
+RH=0.75;
+P=100;
+T=25;
+
+//constants used
+Ra=0.287;//in kPa.m^3 / kg.k
+Rv=0.4615;//in kPa.m^3 / kg.k
+
+//from Table A-2a and A-4
+cp=1.005;
+Psat=3.1698;
+hg=2564.6;
+
+//calculation
+Pv=RH*Psat;
+Pa=P-Pv;
+w=0.622*Pv/(P-Pv);
+h=cp*T+w*hg;
+ma=V*Pa/(Ra*(T+273));
+mv=V*Pv/(Rv*(T+273));
+disp(Pa,'the partial pressure of dry air in kPa');
+disp(w,'the specific humidity in kg water/kg of dry air');
+disp(h,'the enthalpy per unit mass of the dry air in kJ');
+disp(ma,'mass of air in kg');
+disp(mv,'mass of water vapour in kg');
diff --git a/2870/CH14/EX14.2/Ex14_2.sce b/2870/CH14/EX14.2/Ex14_2.sce
new file mode 100755
index 000000000..57ef29ca9
--- /dev/null
+++ b/2870/CH14/EX14.2/Ex14_2.sce
@@ -0,0 +1,13 @@
+clc;clear;
+//Example 14.2
+
+//given data
+T=20;
+RH=0.75;
+
+//from Table A-4
+Psat=2.3392;
+Pv=RH*Psat;
+//thus at this from Eq 14-13
+Tdp=15.4;
+disp(Tdp,'window temperature in C')
diff --git a/2870/CH14/EX14.3/Ex14_3.sce b/2870/CH14/EX14.3/Ex14_3.sce
new file mode 100755
index 000000000..505c3449d
--- /dev/null
+++ b/2870/CH14/EX14.3/Ex14_3.sce
@@ -0,0 +1,26 @@
+clc;clear;
+//Example 14.3
+
+//given data
+T1=25;
+T2=15;
+P2=101.325;
+
+//from Table A-2a & A-4
+//at T1
+Psat1=3.1698;
+hg1=2546.5;
+//at T2
+Psat2=1.7057;
+hfg2=2465.4;
+hf2=62.982;
+cp=1.005;
+
+//calculations
+w2=0.622*Psat2/(P2-Psat2);
+w1=(cp*(T2-T1)+w2*hfg2)/(hg1-hf2);
+disp(w1,'the specific humidity in kg water/kg of dry ai');
+RH1=w1*P2/((0.622+w1)*Psat1);
+disp(RH1,'the relative humidity');
+h=cp*T1+w1*hg1;
+disp(h,'the enthalpy of the air in kJ/kg of dry air')
diff --git a/2870/CH14/EX14.5/Ex14_5.sce b/2870/CH14/EX14.5/Ex14_5.sce
new file mode 100755
index 000000000..c62b904b0
--- /dev/null
+++ b/2870/CH14/EX14.5/Ex14_5.sce
@@ -0,0 +1,37 @@
+clc;clear;
+//Example 14.5
+//difference in first part is due to selective roundingoff to particular decimals in h1 and h2
+
+//given data
+RH1=0.3;
+P1=100;
+V1=45;
+T1=10;
+T2=22;
+RH3=0.6;
+T3=25;
+
+//from Table A-2a & A-4
+cp=1.005;
+Ra=0.287;
+Pg1=1.2281;
+hg1=2519.2;
+hg2=2541.0;
+Pg3=3.1698;
+
+//calculations
+Pv1=RH1*Pg1;
+Pa1=P1-Pv1;
+v1=Ra*(T1+273)/Pa1;
+ma=V1/v1;
+w1=0.622*Pv1/(P1-Pv1);
+h1=cp*T1+w1*hg1;
+w2=w1;
+h2=cp*T2+w2*hg2;
+Q=ma*(h2-h1);
+// ma2*w2 + mw = ma3*w3
+//which reduces to mw = ma * (w3 - w2)
+w3=0.622*RH3*Pg3/(P1-(RH3*Pg3));
+mw=ma*(w3-w2);
+disp(Q,'the rate of heat supply in the heating section in kJ/min');
+disp(mw,'the mass flow rate of the steam required in the humidifying section in kg/min')
diff --git a/2870/CH14/EX14.6/Ex14_6.sce b/2870/CH14/EX14.6/Ex14_6.sce
new file mode 100755
index 000000000..e6c6d4518
--- /dev/null
+++ b/2870/CH14/EX14.6/Ex14_6.sce
@@ -0,0 +1,26 @@
+clc;clear;
+//Example 14.6
+
+//given data
+V1=10;
+T1=30;
+RH1=0.8;
+T2=14;
+RH2=1;
+
+//from Table A-4
+hw=58.8;
+h1=85.4;
+h2=39.3;
+w1=0.0216;
+w2=0.0100;
+v1=0.889;
+
+//calculations
+//mw= ma*(w1-w2)
+//Qout=ma*(h1-h2) - mw*hw
+ma=V1/v1;
+mw= ma*(w1-w2);
+Qout=ma*(h1-h2) - mw*hw;
+disp(mw,'rates of moisture removal from the air in kg/min');
+disp(Qout,'rate of moisture removal from the air in kJ/min');
diff --git a/2870/CH14/EX14.8/Ex14_8.sce b/2870/CH14/EX14.8/Ex14_8.sce
new file mode 100755
index 000000000..684a947f9
--- /dev/null
+++ b/2870/CH14/EX14.8/Ex14_8.sce
@@ -0,0 +1,34 @@
+clc;clear;
+//Example 14.8
+
+//given values
+V1=50;
+T1=14;
+V2=20;
+T2=32;
+RH2=60;
+
+//from psychrometric chart
+h1=39.4;
+w1=0.010;
+v1=0.826;
+h2=79;
+w2=0.0182;
+v2=0.889;
+
+//calculations
+ma1=V1/v1;
+ma2=V2/v2;
+ma3=ma1+ma2;
+//from Eq 14-24
+w3=(w2*ma2+w1*ma1)/(ma1+ma2);
+h3=(h2*ma2+h1*ma1)/(ma1+ma2);
+disp(w3,'the specific humidity in kg of water/kg of dry air');
+//from psychrometric chart
+T3=19;
+RH3=0.89;
+v3=0.844;
+V3=ma3*v3;
+disp(RH3,'the relative humidity');
+disp(T3,'the dry-bulb temperature in C');
+disp(V3,'the volume flow rate of the mixture in m^3/min ')
diff --git a/2870/CH14/EX14.9/Ex14_9.sce b/2870/CH14/EX14.9/Ex14_9.sce
new file mode 100755
index 000000000..2e47b5c93
--- /dev/null
+++ b/2870/CH14/EX14.9/Ex14_9.sce
@@ -0,0 +1,31 @@
+clc;clear;
+//Example 14.9
+
+//given data 
+m=100;
+T1=20;
+P1=1;
+RH1=60;
+T2=30;
+RH2=1;
+T3=35;
+T4=22;
+
+//from Table A-4
+h1=42.2;
+w1=0.0087;
+v1=0.842;
+h2=100;
+w2=0.0273;
+h3=146.64;
+h4=92.28;
+
+//calculations
+//Dry air balane = ma1 = ma2 = ma
+//Water balance = m3 - m4 = ma*(w2 - w1)
+//Energy balance = ma1*h1 + m3*h3 = ma2*h2 + m4*h4
+ma= m*(h3-h4)/(h2-h1-(w2-w1)*h4);
+V1=ma*v1;
+mmakeup=ma*(w2-w1);
+disp(V1,'the volume flow rate of air into the cooling tower in m^3/s');
+disp(mmakeup,'the mass flow rate of the required makeup water in kg/s')