5 files changed, 103 insertions, 0 deletions
diff --git a/172/CH13/EX13.3/ex3.sce b/172/CH13/EX13.3/ex3.sce
new file mode 100755
index 000000000..e9a1b29a6
--- /dev/null
+++ b/172/CH13/EX13.3/ex3.sce
@@ -0,0 +1,16 @@
+//ques3
+//calculating humidity ratio, dew point,mass of air, mass of vapor
+clear
+clc
+r=0.70;//relative humidity
+Pg=5.628;//saturation pressure in kPa
+Pv=r*Pg;//vapour pressure in kPa
+P=100;//net pressure kPa 
+Pa=P-Pv;//Partial pressure of air
+w=0.622*Pv/Pa;//humidity ratio formula
+V=100;//volume in m^3
+Ra=0.287;//gas constant for water vapour
+T=308.2;//Temperature in K
+ma=Pa*V/(Ra*T);//mass in kg
+mv=w*ma;//mass of vapour
+printf('Mass of vapour = %.2f Kg ', mv);
+\ No newline at end of file
diff --git a/172/CH13/EX13.4/ex4.sce b/172/CH13/EX13.4/ex4.sce
new file mode 100755
index 000000000..3ab556040
--- /dev/null
+++ b/172/CH13/EX13.4/ex4.sce
@@ -0,0 +1,14 @@
+//ques4 
+//calculating amount of water vapour condensed on cooling
+clear
+clc
+//from example 3
+w1=0.0255;//w1=w, humidity ratio at initial temperature
+ma=108.6;//mass of air in kg
+P=100;//kPa net pressure
+//at 5 C mixture is saturated so Pv2=Pg2
+Pg2=0.8721;
+Pv2=Pg2;
+w2=0.622*Pv2/(P-Pg2);
+mc=ma*(w1-w2);
+printf('Mass of vapour condense = %.3f kg \n',mc); 
+\ No newline at end of file
diff --git a/172/CH13/EX13.5/ex5.sce b/172/CH13/EX13.5/ex5.sce
new file mode 100755
index 000000000..98ac6de61
--- /dev/null
+++ b/172/CH13/EX13.5/ex5.sce
@@ -0,0 +1,24 @@
+//ques5
+//calculating heat transfer per kilogram of dry air
+clear
+clc
+//1-inlet state
+//2-Exit state
+r1=0.80;//realtive humidity at state 1
+Pg1=4.246;//saturation pressure of vapour in kPa
+P1=105;//net pressure at state 1 in kPa
+P2=100;//net pressure at state 2 in kPa
+Pv1=r1*Pg1;//partial pressure of vapour in kPa
+w1=0.622*Pv1/(P1-Pv1);//humidity ratio at state 1
+r2=0.95;//relative humidity at state 2
+Pg2=1.7051;//saturation pressure of vapour in kPa
+Pv2=r2*Pg2;//partial pressure of vapour in kPa
+w2=0.622*Pv2/(P2-Pv2);//humidity ratio at state 2
+T1=30;//C
+T2=15;//C
+Cp=1.004;//specific heat of water vapour in kJ/kg
+hv2=2528.9;//enthalpy of vapourisation of vapour in kJ/kg
+hv1=2556.3;//enthalpy of vapourisation of vapour in kJ/kg
+hl2=62.99;//enthalpy of 
+q=Cp*(T2-T1)+w2*hv2-w1*hv1+hl2*(w1-w2);//kJ/kg
+printf('Heat transferred per unit mass = %.2f kJ/kg of dry air',q);
+\ No newline at end of file
diff --git a/172/CH13/EX13.6/ex6.sce b/172/CH13/EX13.6/ex6.sce
new file mode 100755
index 000000000..27c050799
--- /dev/null
+++ b/172/CH13/EX13.6/ex6.sce
@@ -0,0 +1,24 @@
+//ques6
+//calculating heat transferred in gas vapour mixture
+clear
+clc
+//n-Nitrogen
+//v-water vapour
+Pn2=1995;//Pressure of nitrogen in kPa
+V=0.5;//Volume in m^3
+Rn2=0.2968;//Gas constant for nitrogen in kJ/kg.K
+Rv=0.4615;//gas constant for vapour
+T1=323.2;//Temperature in K
+T2=283.2;//Temperature in K
+Pv1=5;//Pressure of water vapour in kPa at state 1
+Pv2=1.2276;//Pressure of water vapour in kPa at state 2
+mn2=Pn2*V/(Rn2*T1);//mass of nitrogen
+mv1=Pv1*V/(Rv*T1);//mass of vapour in kg
+mv2=Pv2*V/(Rv*T2);//mass of vapour in kg
+ml2=mv1-mv2;//mass of liquid condensed n kg
+uv1=2443.1;//specific internal energy of vapour in kJ/kg at state 1
+uv2=2389.2;//specific internal energy of vapour in kJ/kg at state 2
+ul2=42.0;//specific internal energy of liquid water in kJ/kg
+Cv=0.745;//specific heat at constant volume in kJ/kg.K
+Q=mn2*Cv*(T2-T1)+mv2*uv2+ml2*ul2-mv1*uv1;
+printf('Heat transferred = %.1f kJ ',Q);
+\ No newline at end of file
diff --git a/172/CH13/EX13.7/ex7.sce b/172/CH13/EX13.7/ex7.sce
new file mode 100755
index 000000000..46920ea9e
--- /dev/null
+++ b/172/CH13/EX13.7/ex7.sce
@@ -0,0 +1,25 @@
+//ques7
+//calculating humidity ratio and relative humidity 
+clear
+clc
+//1-Inlet state
+//2-Exit state
+P=100;//net pressure n kPa 
+//it is steady state adiabatic process
+//water vapour leaving is saturated so Pv2=Pg2
+Pg2=2.339;//saturation pressure of vapour in kPa
+Pv2=Pg2;//partial pressure of vapour
+w2=0.622*Pv2/(P-Pg2);
+Cpa=1.004;//specific heat n kJ/kg/K
+T2=20;// final temp in C
+T1=30;// initial temp in C
+Hfg2=2454.1;//specific heat difference at state 2 in kJ/kg
+hv1=2556.3;//enthalpy of water vapour at state 1 in kJ/kg
+hl2=83.96;//enthalpy of liquid water in kJ/kg
+w1=(Cpa*(T2-T1)+w2*Hfg2)/(hv1-hl2);
+printf('Relative humidity = %.4f \n',w1);
+//also w1=0.622*Pv1/(100-Pv2)
+Pv1=100*w1/(0.622+w1);
+Pg1=4.246;//saturation pressure at state 1 in kPa
+r=Pv1/Pg1;//humidity ratio
+printf(' Humidity ratio = %.3f ',r);
+\ No newline at end of file