4 files changed, 43 insertions, 0 deletions
diff --git a/1460/CH3/EX3.1/3_1.sce b/1460/CH3/EX3.1/3_1.sce
new file mode 100755
index 000000000..2940c50c8
--- /dev/null
+++ b/1460/CH3/EX3.1/3_1.sce
@@ -0,0 +1,10 @@
+clc
+//initialization of variables
+P=80 //lb/in^2
+x=0.9 //quality
+hg=1183.1 //B/lbm
+hfg=901.1 //B/lbm
+//calculations
+h=hg-(1-x)*hfg
+//results
+printf("Enthalpy of steam = %.1f B/lbm",h)
diff --git a/1460/CH3/EX3.2/3_2.sce b/1460/CH3/EX3.2/3_2.sce
new file mode 100755
index 000000000..5fcd82292
--- /dev/null
+++ b/1460/CH3/EX3.2/3_2.sce
@@ -0,0 +1,13 @@
+clc
+//initialization of variables
+P=100 //lb/in^2
+T=470  //F
+T2=500 //F
+T1=450 //F
+//calculations
+disp("From table 4 of appendix,")
+v1=5.268
+v2=5.589
+v=v1+2*(v2-v1)/5
+//results
+printf("Specific volume at %d F = %.3f ft^3/lbm",T,v)
diff --git a/1460/CH3/EX3.3/3_3.sce b/1460/CH3/EX3.3/3_3.sce
new file mode 100755
index 000000000..2bffdc917
--- /dev/null
+++ b/1460/CH3/EX3.3/3_3.sce
@@ -0,0 +1,8 @@
+clc
+//initialization of variables
+R=1544 //ft-lb/R
+M=44 //lbm
+//calculations
+Rdash=R/M
+//results
+printf("Gas constant for CO2 = %.1f ft-lb/lbm R",Rdash)
diff --git a/1460/CH3/EX3.4/3_4.sce b/1460/CH3/EX3.4/3_4.sce
new file mode 100755
index 000000000..e2b58d172
--- /dev/null
+++ b/1460/CH3/EX3.4/3_4.sce
@@ -0,0 +1,12 @@
+clc
+//initialization of variables
+P=80 //lb/in^2
+T=120+460 //R
+R=53.3 //ft-lb/lbmR
+//calculations
+disp("From table 6,")
+h=138.66 //B/lbm
+P=P*144 //lb/ft^2
+v=R*T/P
+//results
+printf("Specific volume = %.2f ft^3/lbm",v)