10 files changed, 133 insertions, 0 deletions
diff --git a/1472/CH10/EX10.1/10_1.sce b/1472/CH10/EX10.1/10_1.sce
new file mode 100755
index 000000000..b81d8bbb5
--- /dev/null
+++ b/1472/CH10/EX10.1/10_1.sce
@@ -0,0 +1,16 @@
+clc
+//initialization of varaibles
+P=100 //psia
+hfg=888.8 //B/lb
+//calculations
+disp("From steam tables,")
+vg=4.432 //cu ft/lb
+vf=0.001774 //cu ft/lb
+W=P*(vg-vf)*144
+ufg=807.1 //B/lb
+W=hfg-ufg
+sfg=1.1286
+Q=788*sfg
+//results
+printf("Work done = %.1f B/lb",W)
+printf("\n Heat of vaporization of water = %d B/lb",Q)
diff --git a/1472/CH10/EX10.10/10_10.sce b/1472/CH10/EX10.10/10_10.sce
new file mode 100755
index 000000000..e5a2a7366
--- /dev/null
+++ b/1472/CH10/EX10.10/10_10.sce
@@ -0,0 +1,15 @@
+clc
+//initialization of varaibles
+T=100 //F
+P=1000 //psia
+//calculations
+disp("From table 4")
+dvf=-5.1*10^-5
+dhf=2.7
+vf=0.01613
+hf=67.97
+v=vf+dvf
+h=hf+dhf
+//results
+printf("Enthalpy = %.2f B/lb",h)
+printf("\n Volume = %.5f cu ft/lb",v)
diff --git a/1472/CH10/EX10.11/10_11.sce b/1472/CH10/EX10.11/10_11.sce
new file mode 100755
index 000000000..120c732ab
--- /dev/null
+++ b/1472/CH10/EX10.11/10_11.sce
@@ -0,0 +1,9 @@
+clc
+//initialization of varaibles
+h1=1183.2 //B/lb
+hg=1198.4 //B/lb
+hfg=843
+//calculations
+x=1- (hg-h1)/hfg
+//results
+printf("Quality = %.3f",x)
diff --git a/1472/CH10/EX10.2/10_2.sce b/1472/CH10/EX10.2/10_2.sce
new file mode 100755
index 000000000..3436422e3
--- /dev/null
+++ b/1472/CH10/EX10.2/10_2.sce
@@ -0,0 +1,12 @@
+clc
+//initialization of varaibles
+s=1.6315 //B/lb R
+//calculations
+disp("From table 1 ")
+h=1180.6 //B/lb
+t=302.92 //F
+p=70 //psia
+//results
+printf("Pressure = %d psia",p)
+printf("\n Temperature = %.2f F",t)
+printf("\n Enthalpy = %.1f B/lb",h)
diff --git a/1472/CH10/EX10.3/10_3.sce b/1472/CH10/EX10.3/10_3.sce
new file mode 100755
index 000000000..ce633a990
--- /dev/null
+++ b/1472/CH10/EX10.3/10_3.sce
@@ -0,0 +1,11 @@
+clc
+//initialization of varaibles
+T=250 //F
+disp("From table 1,")
+p=29.825 //psia
+hg=1164 //B/lb
+vg=13.821 //cu ft/lb
+//calculations
+ug=hg-(p)*144*vg/778
+//results
+printf("Internal energy of the gas = %.1f B/lb",ug)
diff --git a/1472/CH10/EX10.4/10_4.sce b/1472/CH10/EX10.4/10_4.sce
new file mode 100755
index 000000000..226948759
--- /dev/null
+++ b/1472/CH10/EX10.4/10_4.sce
@@ -0,0 +1,20 @@
+clc
+//initialization of varaibles
+x=0.4
+P=100 //psia
+//calculations
+y=1-x
+disp("From table 2,")
+vf=0.01774
+vg=4.432
+vx=x*vf+y*vg
+hf=298.4
+hfg=888.8
+hx=hf+y*hfg
+sg=1.6026
+sfg=1.1286
+sx=sg-x*sfg
+//results
+printf("Specific volume = %.3f cu ft/lb",vx)
+printf("\n Enthalpy = %.1f B/lb",hx)
+printf("\n Entropy = %.4f B/lb R",sx)
diff --git a/1472/CH10/EX10.5/10_5.sce b/1472/CH10/EX10.5/10_5.sce
new file mode 100755
index 000000000..bc0d5d9a7
--- /dev/null
+++ b/1472/CH10/EX10.5/10_5.sce
@@ -0,0 +1,14 @@
+clc
+//initialization of varaibles
+x=0.97
+P=100 //psia
+//calculations
+disp("From table 2,")
+hf=298.4
+hfg=888.8
+hx=hf+x*hfg
+hg=1187.2
+hx2=hg-(1-x)*hfg
+//results
+printf("Accurate Enthalpy = %.1f B/lb",hx2)
+printf("\n Enthalpy = %d B/lb")
diff --git a/1472/CH10/EX10.6/10_6.sce b/1472/CH10/EX10.6/10_6.sce
new file mode 100755
index 000000000..311ec769a
--- /dev/null
+++ b/1472/CH10/EX10.6/10_6.sce
@@ -0,0 +1,18 @@
+clc
+//initialization of varaibles
+s=1.7050 //B/lb R
+//calculations
+disp("From table 2,")
+sx=1.7050
+sg=1.7549
+sfg=1.4415
+dx=(sg-sx)/sfg
+hg=1150.8
+hfg=969.7
+hx=hg-dx*hfg
+vg=26.29
+vfg=26.27
+vx=vg-dx*vfg
+//results
+printf("Specific volume = %.3f cu ft/lb",vx)
+printf("\n Enthalpy = %.1f B/lb",hx)
diff --git a/1472/CH10/EX10.7/10_7.sce b/1472/CH10/EX10.7/10_7.sce
new file mode 100755
index 000000000..c0ddce9e9
--- /dev/null
+++ b/1472/CH10/EX10.7/10_7.sce
@@ -0,0 +1,9 @@
+clc
+//initialization of varaibles
+P=150 //psia
+T=400 //F
+//calculations
+disp("From table 3,")
+h=1219.4 //B/lb
+//results
+printf("Enthalpy = %.1f B/lb",h)
diff --git a/1472/CH10/EX10.8/10_8.sce b/1472/CH10/EX10.8/10_8.sce
new file mode 100755
index 000000000..bc328cd08
--- /dev/null
+++ b/1472/CH10/EX10.8/10_8.sce
@@ -0,0 +1,9 @@
+clc
+//initialization of varaibles
+en=1303.7 //B/lb
+P=300 //psia
+//calculations
+disp("Given hg is less than h, steam is superheated. T=580 F")
+T=580 //F
+//results
+printf("Temperature = %d F",T)