10 files changed, 162 insertions, 0 deletions
diff --git a/1460/CH12/EX12.1/12_1.sce b/1460/CH12/EX12.1/12_1.sce
new file mode 100755
index 000000000..7e5c90afe
--- /dev/null
+++ b/1460/CH12/EX12.1/12_1.sce
@@ -0,0 +1,18 @@
+clc
+//initialization of variables
+w1=2 //lbm
+w2=1 //lbm
+P=30 //lbm/in^2
+T=60+460 //R
+//calculations
+R1=35.1
+R2=55.1
+Rm=(w1*R1+w2*R2)/(w1+w2)
+vm=(w1+w2)*Rm*T/(144*P)
+p1=w1*R1*T/(144*vm)
+p2=w2*R2*T/(144*vm)
+//results
+printf("Gas constant of the mixture = %.1f lb/in^2",Rm)
+printf("\n Volume of the mixture = %.1f ft^3",vm)
+printf("\n Partial pressure of CO2 = %.1f lb/in^2",p1)
+printf("\n Partial pressure of N2 = %.1f lb/in^2",p2)
diff --git a/1460/CH12/EX12.10/12_10.sce b/1460/CH12/EX12.10/12_10.sce
new file mode 100755
index 000000000..d87e50d73
--- /dev/null
+++ b/1460/CH12/EX12.10/12_10.sce
@@ -0,0 +1,18 @@
+clc
+//initialization of variables
+T1=69 //F
+T2=84 //F
+P=14.7 //lb/in^2
+//calculations
+disp("from wet bulb n dry bulb temperature charts,")
+sh=82/7000
+rh=47
+Pwv=0.27
+T=62 //F
+h=33.3
+//results
+printf("Specific humidity = %.4f lbm/lbm",sh)
+printf("\n Relative  humidity = %d ",rh)
+printf("\n Partial pressure = %.2f lb/in^2",Pwv)
+printf("\n Dew point = %d F",T)
+printf("\n Enthalpy per pound of air = %.1f V/lbm dry air",h)
diff --git a/1460/CH12/EX12.11/12_11.sce b/1460/CH12/EX12.11/12_11.sce
new file mode 100755
index 000000000..85be7dc21
--- /dev/null
+++ b/1460/CH12/EX12.11/12_11.sce
@@ -0,0 +1,20 @@
+clc
+//initialization of variables
+g1=[0.489 100 700 35.1 0.154]
+g2=[0.483 15 600 55.2 0.177]
+g3=[0.028 30 500 386 0.754]
+//calculations
+v1=g1(1) *g1(4) *g1(3) /(144*g1(2))
+v2=g2(1) *g2(4) *g2(3) /(144*g2(2))
+v3=g3(1) *g3(4) *g3(3) /(144*g3(2))
+vm=v1+v2+v3
+Tm=(g1(1) *g1(5) *g1(3) +g2(1) *g2(5) *g2(3) +g3(1) *g3(5) *g3(3) )/(g1(1) *g1(5) +g2(1) *g2(5) +g3(1) *g3(5))
+Pm=(g1(1) *g1(4) +g2(1) *g2(4) +g3(1) *g3(4)) *Tm/(vm*144)
+ds1=g1(1) *(g1(5) *log(Tm/g1(3)) +g1(4) /778 *log(vm/v1))
+ds2=g2(1) *(g2(5) *log(Tm/g2(3)) +g2(4) /778 *log(vm/v2))
+ds3=g3(1) *(g3(5) *log(Tm/g3(3)) +g3(4) /778 *log(vm/v3))
+ds=ds1+ds2+ds3
+//results
+printf("Pressure = %.1f lb/in^2",Pm)
+printf("\n Temperature = %d R",Tm)
+printf("\n Entropy change = %.4f B/R",ds)
diff --git a/1460/CH12/EX12.3/12_3.sce b/1460/CH12/EX12.3/12_3.sce
new file mode 100755
index 000000000..947e868b8
--- /dev/null
+++ b/1460/CH12/EX12.3/12_3.sce
@@ -0,0 +1,19 @@
+clc
+//initialization of variables
+cpm=0.2523
+Rm=54.7
+T1=60+460 //R
+T2=400+460 //R
+//calculations
+cvm=cpm-Rm/778
+Q=cpm*(T2-T1)
+W=Rm*(T2-T1)
+//Rm is divided and multiplied by 778.!
+function [cp]=s(T)
+    cp=cpm/T
+endfunction
+ds=intg(T1,T2,s)
+//results
+printf("Entropy change = %.4f B/lbm ",ds)
+printf("\n specific work = %d ft-lb/lbm",W)
+printf("\n Heat added per pound of mixture = %.1f B/lbm",Q)
diff --git a/1460/CH12/EX12.4/12_4.sce b/1460/CH12/EX12.4/12_4.sce
new file mode 100755
index 000000000..7a0c1eabb
--- /dev/null
+++ b/1460/CH12/EX12.4/12_4.sce
@@ -0,0 +1,17 @@
+clc
+//initialization of variables
+P=14.7 //lb/in^2
+T=80+460 //R
+//calculations
+disp("From steam tables,")
+Ps=0.5069  //lb/in^2
+v=633.1 //ft^3/lbm
+Pair=P-Ps
+vair=53.3*T/(144*Pair)
+wair=1/(1+vair/v)
+wwater=vair/v/(1+vair/v)
+//results
+printf("Partial pressure of air = %.1f ft^3/lbm",Pair)
+printf("\n Partial pressure of water vapor = %.4f ft^3/lbm",Ps)
+printf("\n Gravimetric analysis of air = %.4f",wair)
+printf("\n Gravimetric analysis of water = %.4f",wwater)
diff --git a/1460/CH12/EX12.5/12_5.sce b/1460/CH12/EX12.5/12_5.sce
new file mode 100755
index 000000000..056f6e63e
--- /dev/null
+++ b/1460/CH12/EX12.5/12_5.sce
@@ -0,0 +1,17 @@
+clc
+//initialization of variables
+P=14.7 //lb/in^2
+T=80+460 //R
+M=18
+Ps=0.5069  //lb/in^2
+//calculations
+Pair=P-Ps
+R=1544/M
+v=R*T/(144*Ps)
+vair=53.3*T/(144*Pair)
+wair=1/(1+vair/v)
+wwater=vair/v/(1+vair/v)
+//results
+printf("Partial pressure of air = %.1f ft^3/lbm",Pair)
+printf("\n Gravimetric analysis of air = %.4f",wair)
+printf("\n Gravimetric analysis of water = %.4f",wwater)
diff --git a/1460/CH12/EX12.6/12_6.sce b/1460/CH12/EX12.6/12_6.sce
new file mode 100755
index 000000000..13e75328d
--- /dev/null
+++ b/1460/CH12/EX12.6/12_6.sce
@@ -0,0 +1,9 @@
+clc
+//initialization of variables
+RH=0.62
+T=80+460 //R
+//calculations
+disp("From stram tables,")
+P=RH*0.5069
+//results
+printf("Partial pressure of water vapor = %.4f lb/in^2",P)
diff --git a/1460/CH12/EX12.7/12_7.sce b/1460/CH12/EX12.7/12_7.sce
new file mode 100755
index 000000000..12e12a842
--- /dev/null
+++ b/1460/CH12/EX12.7/12_7.sce
@@ -0,0 +1,12 @@
+clc
+//initialization of variables
+P=14.5 //lb/in^2
+T=70+460 //R
+rh=0.34
+//calculations
+disp("From steam tables,")
+Pg=0.3631 //lb/in^2
+Pair=P-Pg
+wratio=rh*0.622*Pg/Pair
+//results
+printf("Specific humidity = %.5f lbm/lbm",wratio)
diff --git a/1460/CH12/EX12.8/12_8.sce b/1460/CH12/EX12.8/12_8.sce
new file mode 100755
index 000000000..ba754a499
--- /dev/null
+++ b/1460/CH12/EX12.8/12_8.sce
@@ -0,0 +1,11 @@
+clc
+//initialization of variables
+T=100+460 //R
+rh=0.6
+//calculations
+disp("From steam tables,")
+Pg=0.9492 //lb/in^2
+Pwv=rh*Pg
+T=83 //F
+//results
+printf("Dew point is obtained from saturation pressure table and is equal to %d F",T)
diff --git a/1460/CH12/EX12.9/12_9.sce b/1460/CH12/EX12.9/12_9.sce
new file mode 100755
index 000000000..51f2593f7
--- /dev/null
+++ b/1460/CH12/EX12.9/12_9.sce
@@ -0,0 +1,21 @@
+clc
+//initialization of variables
+T1=80+460 //R
+T2=90+460 //R
+P=14.5 //lb/in^2
+cp=0.24
+//calculations
+disp("From steam tables,")
+hg2=1096.6
+hf3=48.02
+Pg2=0.5069
+hf2=hf3
+Pair=P-Pg2
+wg2=0.622*Pg2/Pair
+hgv1=1100.9
+wwv1=(cp*(T1-T2)+wg2*(hg2-hf3))/(hgv1-hf3)
+Pg=0.6982
+xi=wwv1*(P-Pg)/(Pg*0.622)
+//results
+printf("Specific humidity = %.4f lbm/lbm",wwv1)
+printf("\n relative humidity = %.2f",xi)