1 files changed, 17 insertions, 0 deletions
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)