1 files changed, 42 insertions, 0 deletions
diff --git a/1943/CH8/EX8.4/Ex8_4.sce b/1943/CH8/EX8.4/Ex8_4.sce
new file mode 100755
index 000000000..c2c123b64
--- /dev/null
+++ b/1943/CH8/EX8.4/Ex8_4.sce
@@ -0,0 +1,42 @@
+
+clc
+clear
+//Input data
+tw3=45;//The temperature of warm water in degree centigrade
+wc1=6;//The cooling water inflow in kg/s
+V=10;//volume flow of ID fan in m^3/s
+Ws=4.90;//Heat absorbed by air in kW
+ti=20;//The temperature of air entering the tower in degree centigrade
+R=60;//The relative humidity in percentage
+to=26;//The temperature of air leaving the tower in degree centigrade
+p=1.013;//The constant pressure throughout the tower in bar
+r=0.287;//Real gas constant in kJ/kgK
+Cpc=4.187;//The specific heat of water in kJ/kgK
+Cp=1.005;//The specific heat of air in kJ/kgK
+
+//Calculations
+ps=0.0234;//The pressure at 20 degreec in bar
+ps1=(R/100)*ps;//The pressure of water vapour in bar
+pa1=p-ps1;//The pressure of air in bar
+G1=(pa1)/(r*10^-3*(ti+273));//The mass flow rate of dry air in kg/s
+w1=(ps1*10^5*V)/(0.4619*10^3*(ti+273));//Mass flow rate of vopour in kg/s
+W1=w1/G1;//Moisture flow in kg vap/kg dry air
+ps2=0.0336;//The pressure at 26 degree C at exit in bar
+pw2=0.0336;//The pressure of water vapour at 26 degree C at exit in bar
+W2=(0.622)*(pw2/(1-pw2));//oisture flow in kg vap/kg dry air
+G2=G1;//The mass flow rate of dry air in kg/s
+w2=W2*G2;//Moisture flow at exit in kg/s
+wm=w2-w1;//Makeup water required in kg/s
+wc2=wc1-wm;//The cooling water outflow in kg/s
+hw3=Cpc*tw3;//The enthalpy of warm water in kJ/kg
+hg=2538.1;//The enthalpy of gas at 20 degree C in kJ/kg
+tsat=12;//The saturation temperature in degree centigrade
+pw1=0.01404;//The pressure at 12 degree C in bar
+hw1=hg+(1.88*(ti-tsat));//The enthalpy of warm water in kJ/kg
+hw2=2548.4;//The enthalpy of evaporation at 26 degree C in kJ/kg
+hw4=[[G1*[(Cp*(to-ti))+W2*hw2-W1*hw1]-Ws]-(wc1*hw3)]/-wc2;//The enthapy of warm water at point 4 in kJ/kg
+E=hw4/Cpc;//Exit water temperature in degree centigrade
+
+//Output
+printf('(a) The final temperature of the water = %3.2f degree centigrade \n (b)The amount of makeup water required per second = %3.4f kg/s ',E,wm)
+