7 files changed, 96 insertions, 0 deletions
diff --git a/1442/CH12/EX12.1/12_1.sce b/1442/CH12/EX12.1/12_1.sce
new file mode 100755
index 000000000..44c935b0d
--- /dev/null
+++ b/1442/CH12/EX12.1/12_1.sce
@@ -0,0 +1,14 @@
+clc
+//initialisation of variables
+x= 0.78
+x1= 0.21
+x2= 0.008
+x3= 0.002
+MN2= 28.013 //gms
+MO2= 32 //gms
+MAr= 39.948 //gms
+MH2O= 18.016 //gms
+//CALCULATIONS
+M= x*MN2+x1*MO2+x2*MAr+x3*MH2O
+//RESULTS
+printf (' molecular wight of air= %.3f kg/kmol',M)
diff --git a/1442/CH12/EX12.2/12_2.sce b/1442/CH12/EX12.2/12_2.sce
new file mode 100755
index 000000000..ff7bce2b4
--- /dev/null
+++ b/1442/CH12/EX12.2/12_2.sce
@@ -0,0 +1,13 @@
+clc
+//initialisation of variables
+M= 30.04 //kg/kmol
+R= 8.3143 //J/mol K
+p= 100 //kPa
+V= 0.2 //m^3
+T= 25 //C
+//CALCULATIONS
+R1= R/M
+m= p*V/(R1*(273.15+T))
+//RESULTS
+printf (' average value of R= %.4f kJ/kg K',R1)
+printf (' \n mass= %.3f kg',m)
diff --git a/1442/CH12/EX12.3/12_3.sce b/1442/CH12/EX12.3/12_3.sce
new file mode 100755
index 000000000..8c1ae21a9
--- /dev/null
+++ b/1442/CH12/EX12.3/12_3.sce
@@ -0,0 +1,21 @@
+clc
+//initialisation of variables
+m1= 0.5 //kg
+cv1= 0.6496 //kJ/kg K
+T1= 80 //C
+m2= 1 //kg
+cv2= 0.6299 //kJ/kg K
+T2= 150 //C
+M= 32 //kg
+M1= 44 //kg
+V1= 0.11437 //m^3
+V2= 0.1 //m^2
+R= 8.314 //J/mol K
+//CALCULATIONS
+T= (m1*cv1*(273.15+T1)+m2*cv2*(273.15+T2))/(m1*cv1+m2*cv2)
+p= ((m1/M)+(m2/M1))*R*T/(V1+V2)
+S= m1*(cv1*log(T/(273.15+T1))+(R/M)*log((V1+V2)/V1))+m2*(cv2*log(T/(273.15+T2))+(R/M1)*log((V1+V2)/V2))
+//RESULTS
+printf (' final temperature= %.1f kPa',T)
+printf (' \n final pressure= %.1f kPa',p)
+printf (' \n change in entropy= %.4f kJ/K',S)
diff --git a/1442/CH12/EX12.4/12_4.sce b/1442/CH12/EX12.4/12_4.sce
new file mode 100755
index 000000000..2f916beba
--- /dev/null
+++ b/1442/CH12/EX12.4/12_4.sce
@@ -0,0 +1,12 @@
+clc
+//initialisation of variables
+Twb= 22 //C
+Tmin= 22.3 //C
+w2= 0.0170 //kg/kg dry air
+w1= 0.0093 //kg/kg dry air
+//CALCULATIONS
+m= w2-w1
+//RESULTS
+printf (' wet-bulb temperature= %.f C',Twb)
+printf (' \n minimum temperature= %.f 1C',Tmin)
+printf (' \n amount of water injected= %.4f kg/kg dry air',m)
diff --git a/1442/CH12/EX12.5/12_5.sce b/1442/CH12/EX12.5/12_5.sce
new file mode 100755
index 000000000..bf9cc4390
--- /dev/null
+++ b/1442/CH12/EX12.5/12_5.sce
@@ -0,0 +1,8 @@
+clc
+//initialisation of variables
+w3= 0.0178 //kg/kgair
+w4= 0.0172 //kg/kgair
+//CALCULATIONS
+dw= w3-w4
+//RESULTS
+printf (' state after mixing= %.4f kg/kgair',dw)
diff --git a/1442/CH12/EX12.6/12_6.sce b/1442/CH12/EX12.6/12_6.sce
new file mode 100755
index 000000000..291538c4b
--- /dev/null
+++ b/1442/CH12/EX12.6/12_6.sce
@@ -0,0 +1,17 @@
+clc
+//initialisation of variables
+m= 20000 //kg/h
+T1= 42 //C
+T2= 22 //C
+J= 4.186 //cal
+h1= 54 //kJ/kg
+h2= 94.8 //kJ/kg
+w1= 0.0105 //kg/h kg
+w2= 0.0244 //kg/h kg
+//CALCULATIONS
+ma= m*(T1-T2)*J/((h2-h1-J*T2*(w2-w1)))
+mw= ma*(w2-w1)
+m4= m-mw
+//RESULTS
+printf (' air mass flow rate= %.1f kg/hr',ma)
+printf (' \n amount of water to be added= %.f kg/hr',m4)
diff --git a/1442/CH12/EX12.7/12_7.sce b/1442/CH12/EX12.7/12_7.sce
new file mode 100755
index 000000000..1691d4738
--- /dev/null
+++ b/1442/CH12/EX12.7/12_7.sce
@@ -0,0 +1,11 @@
+clc
+//initialisation of variables
+x= 0.79
+P0= 101 //kPa
+P= 20 //Mpa
+V= 0.032 //m^3
+//CALCULATIONS
+p= x*P0
+Wrev= P*10^3*V*(log(P/(p*10^-3))+((p*10^-3)/P)-1)
+//RESULTS
+printf (' maximum useful work= %.1f kJ',Wrev)