From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 551/CH10/EX10.1/1.sce   | 23 ++++++++++++++++++++
 551/CH10/EX10.10/10.sce | 21 ++++++++++++++++++
 551/CH10/EX10.11/11.sce | 25 +++++++++++++++++++++
 551/CH10/EX10.12/12.sce | 31 ++++++++++++++++++++++++++
 551/CH10/EX10.13/13.sce | 43 ++++++++++++++++++++++++++++++++++++
 551/CH10/EX10.14/14.sce | 52 ++++++++++++++++++++++++++++++++++++++++++++
 551/CH10/EX10.15/15.sce | 25 +++++++++++++++++++++
 551/CH10/EX10.17/17.sce | 20 +++++++++++++++++
 551/CH10/EX10.18/18.sce | 29 +++++++++++++++++++++++++
 551/CH10/EX10.19/19.sce | 37 +++++++++++++++++++++++++++++++
 551/CH10/EX10.2/2.sce   | 18 +++++++++++++++
 551/CH10/EX10.3/3.sce   | 26 ++++++++++++++++++++++
 551/CH10/EX10.4/4.sce   | 53 ++++++++++++++++++++++++++++++++++++++++++++
 551/CH10/EX10.5/5.sce   | 46 +++++++++++++++++++++++++++++++++++++++
 551/CH10/EX10.6/6.sce   | 43 ++++++++++++++++++++++++++++++++++++
 551/CH10/EX10.7/7.sce   | 43 ++++++++++++++++++++++++++++++++++++
 551/CH10/EX10.8/8.sce   | 58 +++++++++++++++++++++++++++++++++++++++++++++++++
 551/CH10/EX10.9/9.sce   | 42 +++++++++++++++++++++++++++++++++++
 18 files changed, 635 insertions(+)
 create mode 100755 551/CH10/EX10.1/1.sce
 create mode 100755 551/CH10/EX10.10/10.sce
 create mode 100755 551/CH10/EX10.11/11.sce
 create mode 100755 551/CH10/EX10.12/12.sce
 create mode 100755 551/CH10/EX10.13/13.sce
 create mode 100755 551/CH10/EX10.14/14.sce
 create mode 100755 551/CH10/EX10.15/15.sce
 create mode 100755 551/CH10/EX10.17/17.sce
 create mode 100755 551/CH10/EX10.18/18.sce
 create mode 100755 551/CH10/EX10.19/19.sce
 create mode 100755 551/CH10/EX10.2/2.sce
 create mode 100755 551/CH10/EX10.3/3.sce
 create mode 100755 551/CH10/EX10.4/4.sce
 create mode 100755 551/CH10/EX10.5/5.sce
 create mode 100755 551/CH10/EX10.6/6.sce
 create mode 100755 551/CH10/EX10.7/7.sce
 create mode 100755 551/CH10/EX10.8/8.sce
 create mode 100755 551/CH10/EX10.9/9.sce

(limited to '551/CH10')

diff --git a/551/CH10/EX10.1/1.sce b/551/CH10/EX10.1/1.sce
new file mode 100755
index 000000000..c965270e4
--- /dev/null
+++ b/551/CH10/EX10.1/1.sce
@@ -0,0 +1,23 @@
+clc
+t_db=293; //K
+W=0.0095; //kg/kg of dry air
+p_t=1.0132; 
+disp("(i) Partial pressure of vapour")
+p_v=p_t*W/(W+0.622);
+disp("p_v=")
+disp(p_v)
+disp("bar")
+
+
+disp("(ii) Relative humidity phi :")
+p_vs=0.0234; //bar; From steam tables corresponding to 20 0C
+phi=p_v/p_vs;
+disp("relative hmidity =")
+disp(phi)
+
+
+disp("(iii) Dew point temperature")
+t_dp=13 + (14-13)/(0.01598 - 0.0150)*(0.01524-0.0150); //From stea table by interpolation
+disp("t_dp=")
+disp(t_dp)
+disp("0C")
\ No newline at end of file
diff --git a/551/CH10/EX10.10/10.sce b/551/CH10/EX10.10/10.sce
new file mode 100755
index 000000000..718b58e42
--- /dev/null
+++ b/551/CH10/EX10.10/10.sce
@@ -0,0 +1,21 @@
+clc
+p_s=0.0206; //bar
+p_t=1; //bar
+p_s1=0.03782; //bar
+W_2s=0.622*p_s/(p_t-p_s);
+
+cp=1.005;
+t_db2=18; //0C
+t_db1=28; //0C
+
+h_g2=2534.4; //kJ/kg
+h_f2=75.6; //kJ/kg
+h_g1=2552.6; //kJ/kg
+
+W1=(cp*(t_db1-t_db2) + W_2s*(h_g2-h_f2))/(h_g1-h_f2);
+
+p_v1=W1*p_t/(0.622+W1);
+
+RH=p_v1/p_s1; //Relative humidity
+disp("Relative humidity")
+disp(RH)
diff --git a/551/CH10/EX10.11/11.sce b/551/CH10/EX10.11/11.sce
new file mode 100755
index 000000000..93a11b397
--- /dev/null
+++ b/551/CH10/EX10.11/11.sce
@@ -0,0 +1,25 @@
+clc
+t_db1=38; //0C
+t_db2=18; //0C
+phi_1=0.75;
+phi_2=0.85;
+p_t=1; //bar
+cp=1.005;
+
+//At 38 0C
+p_vs=0.0663; //bar
+h_g1=2570.7; //kJ/kg
+p_v=phi_1*p_vs;
+W1=0.622*p_v/(p_t-p_v);
+
+//At 18 0C
+p_vs=0.0206; //bar
+h_g2=2534.4; //kJ/kg
+h_f2=75.6; //kJ/kg
+p_v=phi_2*p_vs;
+W2=0.622*p_v/(p_t-p_v);
+
+q=(W2*h_g2 - W1*h_g1) + cp*(t_db2-t_db1) + (W1-W2)*h_f2;
+disp("Heat transfer rate=")
+disp(q)
+disp("kJ/kg of dry air")
\ No newline at end of file
diff --git a/551/CH10/EX10.12/12.sce b/551/CH10/EX10.12/12.sce
new file mode 100755
index 000000000..a4f81a497
--- /dev/null
+++ b/551/CH10/EX10.12/12.sce
@@ -0,0 +1,31 @@
+clc
+
+//At 38 0C
+p_vs=0.0663; //bar
+h_g1=2570.7; //kJ/kg
+phi=0.25;
+p_t=1.0132;
+p_v=phi*p_vs;
+cp=1.005;
+
+//At 18 0C
+h_g2=2534.4; //kJ/kg
+p_vs=0.0206; //bar
+W1=0.622*p_v/(p_t-p_v);
+
+t_db1=38; //0C
+t_db2=18; //0C
+
+W2=(cp*(t_db1-t_db2) + W1*h_g1)/h_g2;
+
+//amount of water added =amt
+amt=W2-W1;
+disp("amt=")
+disp(amt)
+disp("kg/kg of dry air")
+
+p_v2=amt*p_t/(0.622+amt);
+
+RH=p_v2/p_vs;
+disp("Final relative humidity")
+disp(RH)
diff --git a/551/CH10/EX10.13/13.sce b/551/CH10/EX10.13/13.sce
new file mode 100755
index 000000000..6af5efa36
--- /dev/null
+++ b/551/CH10/EX10.13/13.sce
@@ -0,0 +1,43 @@
+clc
+
+disp("(i) Mass of spray water required")
+
+//At 22 0c
+p_vs=0.0264; //bar
+phi_3=0.55;
+p_t=1.0132; //bar
+
+p_v3=phi_3*p_vs;
+W3=0.622*p_v3/(p_t-p_v3);
+
+//At 3 0C
+p_vs1=0.0076; //bar
+p_v1=p_vs1;
+
+W1=0.622*p_v1/(p_t-p_v1);
+
+R=287;
+T_3=295; //K
+
+v=R*T_3/(p_t-p_v3)/10^5;
+
+m=(W3-W1)/v;
+disp(" Mass of spray water required=")
+disp(m)
+disp("kg moisture/m^3")
+
+
+disp("(ii) Temperature to which the air must be heated")
+t_dp=12.5; //0C
+cp=1.005;
+t_db3=22; //0C
+h_g3=2524; //kJ/kg
+h_vapour3=h_g3 + 1.88*(t_db3 - t_dp);
+W2=0.0047;
+h_g2=2524; //kJ/kg
+h4=41.87;
+
+t_db2=(cp*t_db3 + W3*h_vapour3 -W2*h_g2 + 1.88*W2*t_dp - (W3-W2)*h4)/(cp-W2*1.88);
+disp("t_db2=")
+disp(t_db2)
+disp("0C")
\ No newline at end of file
diff --git a/551/CH10/EX10.14/14.sce b/551/CH10/EX10.14/14.sce
new file mode 100755
index 000000000..d8807d61e
--- /dev/null
+++ b/551/CH10/EX10.14/14.sce
@@ -0,0 +1,52 @@
+clc
+
+disp("(i) Make-up water required")
+p_vs=0.0206; //bar
+phi=0.6;
+p_t=1.013; //bar
+
+p_v1=phi*p_vs;
+p_a1=p_t-p_v1;
+V=9; //m^3
+R=287;
+T=291; //K
+
+m_a=p_a1*10^5*V/R/T;
+
+m_v1=0.0828; //kg/s
+
+//At exit at 26 0C
+p_vs=0.0336; //bar
+phi=1;
+p_v=p_vs;
+W2=0.622*p_v/(p_t-p_v);
+m_v2=W2*m_a;
+
+m=m_v2-m_v1;
+disp("Make-up water required=")
+disp(m)
+disp("kg/s")
+
+
+disp("(ii) Final temperature of the water")
+m_w1=5.5; //kg/s
+m_w2=m_w1-m;
+
+Wi=4.75; //kJ/s
+
+h_w1=184.3; //kJ/kg
+h_a1=18.09; //kJ/kg
+h_v1=2534.74; //kJ/kg
+
+h_v2=2549; //kJ/kg
+h_a2=26.13; //kJ/kg
+
+h_w2=(Wi + m_w1*h_w1 + m_a*h_a1 + m_v1*h_v1 - m_a*h_a2 - m_v2*h_v2)/m_w2;
+
+//By interpolation, h_w2 corresponds to t
+t=26.7; //0C
+disp("final temperature of water=")
+disp(t)
+disp("0C")
+
+
diff --git a/551/CH10/EX10.15/15.sce b/551/CH10/EX10.15/15.sce
new file mode 100755
index 000000000..43f66b378
--- /dev/null
+++ b/551/CH10/EX10.15/15.sce
@@ -0,0 +1,25 @@
+clc
+
+m_water=60000; //kg/s
+c=4.186;
+t1=30; //0C
+t2=35; //0C
+Q=m_water*c*(t2-t1);
+
+h1=76.5; //kJ/kg
+W1=0.016; //kg/kg of air 
+h2=92.5; //kJ/kg 
+W2=0.0246; //kg/kg of air
+
+m_air=Q/(h2-h1);
+
+A=m_air/10; //Quantity of air handled per fan
+disp("Quantity of air handled per fan=")
+disp(A)
+disp("kg/h")
+
+
+B=m_air*(W2-W1);
+disp("Quantity of make up water=")
+disp(B)
+disp("kg/h")
\ No newline at end of file
diff --git a/551/CH10/EX10.17/17.sce b/551/CH10/EX10.17/17.sce
new file mode 100755
index 000000000..6c8049f57
--- /dev/null
+++ b/551/CH10/EX10.17/17.sce
@@ -0,0 +1,20 @@
+clc
+h1=35.4; //kJ/kg
+h2=45.2; //kJ/kg
+v_s1=0.8267; //m^3/kg
+m_a=241.9;
+
+disp("(i) R.H. of heated air =")
+RH=41; // From chart
+disp(RH)
+disp("%")
+
+disp("(ii) WBT of heated air =")
+WBT=16.1; //0C
+disp(WBT)
+disp("ºC")
+
+disp("(iii) Heat added to air per minute =")
+Q=m_a*(h2-h1);
+disp(Q)
+disp("kJ")
\ No newline at end of file
diff --git a/551/CH10/EX10.18/18.sce b/551/CH10/EX10.18/18.sce
new file mode 100755
index 000000000..fe7fcf3e6
--- /dev/null
+++ b/551/CH10/EX10.18/18.sce
@@ -0,0 +1,29 @@
+clc
+h1=29.3; //kJ/kg
+h2=42.3; //kJ/kg
+h3=h2;
+t_db2=24.5; //0C
+t_db1=12; //0C
+v_s1=0.817; //m^3/kg
+amt=0.30; //Amount of air circulation m^3/min/person
+capacity=60; //Seating capacity of office
+BF=0.4; //By-pass factor
+W3=8.6;
+W1=6.8;
+
+m_a=amt*capacity/v_s1;
+
+disp("(i) Heating capacity of the heating coil =")
+Q=m_a*(h2-h1)/60;
+disp(Q)
+disp("kW")
+
+t_db4=(t_db2-BF*t_db1)/(1-BF);
+disp("Coil surface temperature =")
+disp(t_db4)
+disp("ºC")
+
+disp("(ii) The capacity of the humidifier =")
+c=m_a*(W3-W1)/1000*60;
+disp(c)
+disp("kg/h")
\ No newline at end of file
diff --git a/551/CH10/EX10.19/19.sce b/551/CH10/EX10.19/19.sce
new file mode 100755
index 000000000..58b848795
--- /dev/null
+++ b/551/CH10/EX10.19/19.sce
@@ -0,0 +1,37 @@
+clc
+h1=82.5; //kJ/kg
+h2=47.5; //kJ/kg
+h3=55.7; //kJ/kg
+h5=36.6; //kJ/kg
+W1=19.6; //gm/kg
+W3=11.8; //gm/kg
+t_db2=17.6; //0C
+t_db3=25; //0C
+v_s1=0.892; //m^3/kg
+amt=250; //m^3/min
+
+m_a=amt/v_s1;
+disp("(i) The capacity of the cooling coil =")
+capacity=m_a*(h1-h2)*60/14000;
+disp(capacity)
+disp("TR")
+
+BF=(h2-h5)/(h1-h5);
+disp("by-pass factor of the cooling coil =")
+disp(BF)
+
+disp("(ii) The heating capacity of the heating coil =")
+Q=m_a*(h3-h2)/60;
+disp(Q)
+disp("kW")
+
+BF=0.3;
+t_db6=(t_db3-BF*t_db2)/(1-BF);
+disp("surface temperature of heating coil =")
+disp(t_db6)
+disp("ºC")
+
+disp("(iii) The mass of water vapour removed per hour =")
+m=m_a*(W1-W3)*60/1000;
+disp(m)
+disp("kg/h")
\ No newline at end of file
diff --git a/551/CH10/EX10.2/2.sce b/551/CH10/EX10.2/2.sce
new file mode 100755
index 000000000..c66595aa3
--- /dev/null
+++ b/551/CH10/EX10.2/2.sce
@@ -0,0 +1,18 @@
+clc
+t_db=290; //K
+phi=0.6; //relative humidity
+p_t=1.01325; //bar
+p_vs=0.0194; //bar
+
+p_v=phi*p_vs;
+
+W=0.622*p_v/(p_t - p_v);
+disp("Specific Humidity=")
+disp(W)
+disp("kg/kg of dry air")
+
+
+t_dp=9 + (10-9)*(0.01164-0.01150)/(0.01230 - 0.01150); //By interpolation from steam tables
+disp("dew point temperature =")
+disp(t_dp)
+ disp("0C")
\ No newline at end of file
diff --git a/551/CH10/EX10.3/3.sce b/551/CH10/EX10.3/3.sce
new file mode 100755
index 000000000..a9ce8e412
--- /dev/null
+++ b/551/CH10/EX10.3/3.sce
@@ -0,0 +1,26 @@
+clc
+phi=0.55;
+p_vs=0.0425; //bar
+p_t=1.0132; //bar
+
+p_v=phi*p_vs;
+W=0.622*p_v/(p_t-p_v);
+
+//Specific humidity after removing o.oo4 kg of water vapour
+Wnew=W-0.004;
+p_v=p_t*Wnew/(Wnew+0.622);
+p_vs=0.0234; //bar
+
+disp("(i) Relative humidity")
+phi=p_v/p_vs;
+disp("phi=")
+disp(phi)
+
+
+disp("(ii) Dew point temperature")
+
+disp("Corresponding to 0.0171 bar, from steam tables")
+t_dp=15; //0C
+disp("t_dp=")
+disp(t_dp)
+disp("0C")
\ No newline at end of file
diff --git a/551/CH10/EX10.4/4.sce b/551/CH10/EX10.4/4.sce
new file mode 100755
index 000000000..1b068dbe5
--- /dev/null
+++ b/551/CH10/EX10.4/4.sce
@@ -0,0 +1,53 @@
+clc
+t_db=35; //0C
+t_wb=25; //0C
+p_t=1.0132; //bar
+
+//Corresponding to 25 0C in steam tables
+p_vs_wb=0.0317; //bar
+
+p_v=p_vs_wb - (p_t - p_vs_wb)*(t_db - t_wb)/(1527.4 - 1.3*t_wb);
+
+
+disp("(i) Specific humidity")
+W=0.622*p_v/(p_t-p_v);
+disp("W=")
+disp(W)
+disp("kg/kg of dry air")
+
+disp("(ii) Relative humidity")
+
+//Corresponding to 35 0C, from steam tables
+p_vs=0.0563;
+
+phi=p_v/p_vs;
+disp("phi")
+disp(phi)
+
+
+disp("(iii) Vapour density")
+R_v=8314.3/18;
+T_v=308; //K
+
+rho_v=p_v*10^5/(R_v*T_v);
+disp("rho_v=")
+disp(rho_v)
+disp("kg/m^3")
+
+
+disp("(iv) Dew point temperature")
+t_dp=21 + (22-21)*(0.0252-0.0249)/(0.0264-0.0249);
+disp("t_dp")
+disp(t_dp)
+disp("0C")
+
+
+disp("(v) Enthalpy of mixture per kg of dry air")
+cp=1.005;
+h_g=2565.3; //kJ/kg; corresponding to 35 0C
+h_vapour=h_g + 1.88*(t_db - t_dp);
+
+h=cp*t_db + W*h_vapour;
+disp("h=")
+disp(h)
+disp("kJ/kg of dry air")
\ No newline at end of file
diff --git a/551/CH10/EX10.5/5.sce b/551/CH10/EX10.5/5.sce
new file mode 100755
index 000000000..4c727bf42
--- /dev/null
+++ b/551/CH10/EX10.5/5.sce
@@ -0,0 +1,46 @@
+clc
+
+//For the air at 35 0C DBT and 60% R.H.
+p_vs=0.0563; //bar; Corresponding to 35 0C from stem tables
+
+phi=0.6;
+p_t=1.0132; //bar
+cp=1.005;
+t_db=35; //0C
+h_g=2565.5; //kJ/kg
+m1=1; //kg
+m2=2; //kg
+m=m1+m2;
+
+p_v=phi*p_vs;
+W1=0.622*p_v/(p_t-p_v);
+
+//Corresponding to 0.0388 bar, from steam tables
+t_dp=26+(27-26)*(0.0338-0.0336)/(0.0356-0.0336);
+
+h_vapour=h_g + 1.88*(t_db - t_dp);
+h1=cp*t_db+W1*h_vapour;
+
+//For the air at 20°C DBT and 13°C dew point temperature :
+p_v=0.0150; //bar
+
+W2=0.622*p_v/(p_t-p_v);
+t_db=20; //0C
+t_dp=13;
+h_g=2538.1; //kJ/kg
+h_vapour=h_g + 1.88*(t_db - t_dp);
+
+h2=cp*t_db+W2*h_vapour;
+
+//let enthalpy per kg of moist air be h
+h=((m1*h1/(1+W1)) + (m2*h2/(1+W2)))/m;
+
+//Let Mass of vapour/kg of moist air be M
+M=(m1*W1/(1+W1) + m2*W2/(1+W2))/m;
+
+
+//Let specific humidity be denoted by SH
+SH=M/(1-M);
+disp("Specific humidity =")
+disp(SH)
+disp("kg/kg of dry air")
\ No newline at end of file
diff --git a/551/CH10/EX10.6/6.sce b/551/CH10/EX10.6/6.sce
new file mode 100755
index 000000000..6c896a4ae
--- /dev/null
+++ b/551/CH10/EX10.6/6.sce
@@ -0,0 +1,43 @@
+clc
+
+//For air at 20 0C and 75% R.H
+p_vs=0.0234; //bar
+phi=0.75;
+p_t=1.0132;
+cp=1.005;
+t_db=20; //0C
+
+
+p_v=phi*p_vs;
+t_dp=15 + (16-15)*(0.01755-0.017)/(0.0182-0.017);
+W=0.622*p_v/(p_t-p_v);
+
+h_g=2538.1; //kJ/kg
+h_vapour=h_g + 1.88*(t_db - t_dp);
+h1=cp*t_db + W*h_vapour;
+
+
+disp("(i) Relative humidity of heated air :")
+
+//For air at 30°C DBT
+p_vs=0.0425; //bar; corresponding to 30 0C
+phi=p_v/p_vs;
+disp("Relative humidity=")
+disp(phi*100)
+disp("%")
+
+
+disp("(ii) Heat added to air per minute")
+h_g=2556.3; //kJkg
+t_db=30;
+h2=cp*t_db+W*h_vapour;
+V=90; //m^3
+R=287;
+T=293; //K
+
+m=(p_t-p_v)*V*10^5/R/T;
+
+Amt=m*(h2-h1);
+disp("Amount of heat added per minute=")
+disp(Amt)
+disp("kJ")
\ No newline at end of file
diff --git a/551/CH10/EX10.7/7.sce b/551/CH10/EX10.7/7.sce
new file mode 100755
index 000000000..b225b57b0
--- /dev/null
+++ b/551/CH10/EX10.7/7.sce
@@ -0,0 +1,43 @@
+clc
+
+//For air at 35 0C DBT and 50% RH
+p_vs=0.0563; //bar; At 35 0C, from steam tables
+phi=0.5;
+p_t=1.0132;
+t_db1=35; //0C
+t_dp1=23; //0C
+cp=1.005;
+R=287;
+p_v=phi*p_vs;
+W1=0.622*p_v/(p_t-p_v);
+h_g1=2565.3; //kJ/kg
+
+h_vapour=h_g1 + 1.88*(t_db1 - t_dp1);
+h1=cp*t_db1+W1*h_vapour;
+
+
+disp("(i) R.H. of cooled air")
+p_vs=0.0317;
+phi=p_v/p_vs;
+disp("RH of cooled air=")
+disp(phi*100)
+disp("%")
+
+
+disp("(ii) Heat removed from air")
+h_g2=2547.2; //kJ/kg
+t_db2=25; //0C
+t_dp2=23; //0C
+W2=W1;
+T=308; //K
+V=40; //m^3
+
+h_vapour=h_g2 + 1.88*(t_db2 - t_dp2);
+h2=cp*t_db2+W2*h_vapour;
+m=(p_t-p_v)*10^5*V/R/T;
+
+//Let Heat removed be denoted by H
+H=m*(h1-h2);
+disp("Heat removed =") 
+disp(H)
+disp("kJ")
\ No newline at end of file
diff --git a/551/CH10/EX10.8/8.sce b/551/CH10/EX10.8/8.sce
new file mode 100755
index 000000000..9b5e89330
--- /dev/null
+++ b/551/CH10/EX10.8/8.sce
@@ -0,0 +1,58 @@
+clc
+
+//For the air at 35°C DBT and 50% R.H.
+p_vs=0.0563; //bar; At 35 0C, from steam tables
+phi=0.5;
+p_v=phi*p_vs;
+p_t=1.0132; //bar
+
+t_dp1=23; //0C
+t_db1=35; //0C
+W1=0.622*p_v/(p_t-p_v);
+h_g1=2565.3; //kJ/kg
+R=287;
+cp=1.005;
+
+h_vapour=h_g1 + 1.88*(t_db1 - t_dp1);
+h1=cp*t_db1+W1*h_vapour;
+
+
+disp("(i) Relative humidity of out coming air and its wet bulb temperature.")
+
+disp("Relative humidity of exit air is 100 per cent.")
+
+t_wb=20; //0C
+disp("Wet bulb temperture=")
+disp(t_wb)
+disp("0C")
+
+p_v=0.0234; //bar
+p_vs=p_v;
+t_db2=20; //0C
+h_g2=2538.1; //kJ/kg
+t_dp2=t_db2;
+
+W2=0.622*p_v/(p_t-p_v);
+h_vapour=h_g2 + 1.88*(t_db2 - t_dp2);
+h2=cp*t_db2+W2*h_vapour;
+
+T=308; //K
+V=120; //m^3
+
+W=W1-W2; //Weight of water vvapour removed per kg of dry air 
+h=h1-h2; //Heat removed per kg of dry air
+m=(p_t-p_v)*10^5*V/R/T;
+
+
+disp("(ii) Capacity of the cooling coil in tonnes of refrigeration")
+C=m*(h1-h2)*60/14000;
+disp("Capacity =")
+disp(C)
+disp("TR")
+
+
+disp("(iii) Amount of water removed per hour")
+Amt=m*(W1-W2)*60;
+disp("Amount of water removed per hour=")
+disp(Amt)
+disp("kg/h")
\ No newline at end of file
diff --git a/551/CH10/EX10.9/9.sce b/551/CH10/EX10.9/9.sce
new file mode 100755
index 000000000..bf23234df
--- /dev/null
+++ b/551/CH10/EX10.9/9.sce
@@ -0,0 +1,42 @@
+clc
+p_vs=0.0563; //bar
+phi=0.2;
+p_v=phi*p_vs;
+p_t=1.0132; //bar
+
+W1=0.622*p_v/(p_t-p_v);
+
+disp("(i) Dew point temperature")
+//
+t_dp=8+(9-8)*(0.01126-0.01072)/(0.01150-0.01072);
+disp("dew point temperature=")
+disp(t_dp)
+disp("0C")
+
+
+disp("(ii) Relative humidity of the exit air :")
+p_vs_wb=0.0170; //bar
+p_vs=0.0234; //bar
+t_db=20; //0C
+t_wb=15; //0C
+
+p_v=p_vs_wb - (p_t-p_vs_wb)*(t_db-t_wb)/(1527.4-1.3*t_wb);
+W2=0.622*p_v/(p_t-p_v);
+
+RH=p_v/p_vs;
+disp("Relative humidity=")
+disp(RH)
+
+p_v=0.01126; //bar
+R=287;
+T=308; //K
+V=150;
+
+m=(p_t-p_v)*V*10^5/R/T;
+
+
+disp("(iii) Amount of water vapour added to the air per minute")
+amt=m*(W2-W1);
+disp("Amount =")
+disp(amt)
+disp("kg/min")
\ No newline at end of file
-- 
cgit