10 files changed, 158 insertions, 0 deletions
diff --git a/2519/CH9/EX9.1/Ex9_1.sce b/2519/CH9/EX9.1/Ex9_1.sce
new file mode 100755
index 000000000..d47ec3636
--- /dev/null
+++ b/2519/CH9/EX9.1/Ex9_1.sce
@@ -0,0 +1,14 @@
+clc
+clear
+//Initialization of variables
+T=32 //F
+m=1 //lbm
+J=778.16
+//calculations
+disp("From steam tables,")
+hf=0 
+p=0.08854 //psia
+vf=0.01602 //ft^3/lbm
+u=hf-p*144*vf/J
+//results
+printf("Internal energy = %.7f Btu/lbm",u)
diff --git a/2519/CH9/EX9.10/Ex9_10.sce b/2519/CH9/EX9.10/Ex9_10.sce
new file mode 100755
index 000000000..f08f1c72c
--- /dev/null
+++ b/2519/CH9/EX9.10/Ex9_10.sce
@@ -0,0 +1,15 @@
+clc
+clear
+//Initialization of variables
+pb=14.696 //psia
+pa=150 //psia
+tb=300 //F
+//calculations
+disp("From steam tables,")
+hb=1192.8 //Btu/lbm
+ha=hb
+hf=330.51 //Btu/lbm
+hfg=863.6 //Btu/lbm
+x=(ha-hf)/hfg
+//results
+printf("Quality of wet steam = %.1f percent",x*100)
diff --git a/2519/CH9/EX9.2/Ex9_2.sce b/2519/CH9/EX9.2/Ex9_2.sce
new file mode 100755
index 000000000..6c02e2274
--- /dev/null
+++ b/2519/CH9/EX9.2/Ex9_2.sce
@@ -0,0 +1,12 @@
+clc
+clear
+//Initialization of variables
+P=40 //psia
+//calculations
+disp("from steam tables,")
+hf=200.8 //Btu/lbm
+hg=27 //Btu/lbm
+T=495  //R
+ds=(hf-hg)/T
+//results
+printf("Change in entropy = %.3f Btu/lbm R",ds)
diff --git a/2519/CH9/EX9.3/Ex9_3.sce b/2519/CH9/EX9.3/Ex9_3.sce
new file mode 100755
index 000000000..1bf8e147c
--- /dev/null
+++ b/2519/CH9/EX9.3/Ex9_3.sce
@@ -0,0 +1,13 @@
+clc
+clear
+//Initialization of variables
+x=0.35
+T=18 //F
+//calculations
+disp("From table B-14,")
+hf=12.12 //Btu/lbm
+hg=80.27 //Btu.lbm
+hfg=-hf+hg
+h=hf+x*hfg
+//results
+printf("specific enthalpy = %.1f Btu/lbm",h)
diff --git a/2519/CH9/EX9.4/Ex9_4.sce b/2519/CH9/EX9.4/Ex9_4.sce
new file mode 100755
index 000000000..60efd4518
--- /dev/null
+++ b/2519/CH9/EX9.4/Ex9_4.sce
@@ -0,0 +1,16 @@
+clc
+clear
+//Initialization of variables
+x=0.35
+T=18 //F
+T2=55.5 //F
+//calculations
+disp("From table B-14,")
+hf=12.12 //Btu/lbm
+hg=80.27 //Btu.lbm
+hfg=-hf+hg
+h=hf+x*hfg
+h2=85.68 //Btu/lbm
+dh=h2-h
+//results
+printf("Heat required = %.2f Btu/lbm",dh)
diff --git a/2519/CH9/EX9.5/Ex9_5.sce b/2519/CH9/EX9.5/Ex9_5.sce
new file mode 100755
index 000000000..ec5d13516
--- /dev/null
+++ b/2519/CH9/EX9.5/Ex9_5.sce
@@ -0,0 +1,13 @@
+clc
+clear
+//Initialization of variables
+P=1460 //psia
+T=135 //F
+P2=700 //psia
+//calculations
+disp("From mollier chart,")
+h=120 //Btu/lbm
+x=0.83
+//results
+printf("enthalpy = %d Btu/lbm",h)
+printf("\n Qulaity = %.2f",x)
diff --git a/2519/CH9/EX9.6/Ex9_6.sce b/2519/CH9/EX9.6/Ex9_6.sce
new file mode 100755
index 000000000..c5dd481be
--- /dev/null
+++ b/2519/CH9/EX9.6/Ex9_6.sce
@@ -0,0 +1,18 @@
+clc
+clear
+//Initialization of variables
+m=1 //lbm
+P1=144 //psia
+P2=150 //psia
+T1=360 //F
+J=778.16
+//calculations
+disp("From table 3,")
+v1=3.160 //ft^3/lbm
+h1=1196.5 //Btu/lbm
+u1=h1-P1*144*v1/J
+h2=1211.4 //Btu/lbm
+u2=h2-P2*144*v1/J
+dq=u2-u1
+//results
+printf("Heat transferred = %.1f Btu/lbm",dq)
diff --git a/2519/CH9/EX9.7/Ex9_7.sce b/2519/CH9/EX9.7/Ex9_7.sce
new file mode 100755
index 000000000..7767c13d5
--- /dev/null
+++ b/2519/CH9/EX9.7/Ex9_7.sce
@@ -0,0 +1,18 @@
+clc
+clear
+//Initialization of variables
+T1=100 //F
+P2=1000 //psia
+x=0.6
+J=778.16
+//calculations
+disp("From table 3,")
+v=0.01613 //ft^3/lbm
+P1=0.9 //psia
+wrev=-v*(P2-P1)*144/J
+dv=0.000051 //ft^3/lbm
+wcomp=(P2+P1)/2 *dv*144/J
+wact=wrev/x
+//results
+printf("Work done = %.1f Btu/lbm",wrev)
+printf("\n In case 2, work required = %.1f Btu/lbm",wact)
diff --git a/2519/CH9/EX9.8/Ex9_8.sce b/2519/CH9/EX9.8/Ex9_8.sce
new file mode 100755
index 000000000..30df0d63a
--- /dev/null
+++ b/2519/CH9/EX9.8/Ex9_8.sce
@@ -0,0 +1,14 @@
+clc
+clear
+//Initialization of variables
+pa=1000 //atm
+ta=100 //F
+//calculations
+hf=67.97 //Btu/lbm
+w=3 //Btu/lbm
+ha=hf+w
+disp("from steam table 2,")
+hc=1191.8 //Btu/lbm
+qrev=hc-ha
+//results
+printf("Heat transferred = %.1f Btu/lbm",qrev)
diff --git a/2519/CH9/EX9.9/Ex9_9.sce b/2519/CH9/EX9.9/Ex9_9.sce
new file mode 100755
index 000000000..84b0cc4de
--- /dev/null
+++ b/2519/CH9/EX9.9/Ex9_9.sce
@@ -0,0 +1,25 @@
+clc
+clear
+//Initialization of variables
+P1=144 //psia
+T1=400 //F
+y=0.7
+//calculations
+disp("From steam tables,")
+h1=1220.4 //Btu/lbm
+s1=1.6050 //Btu/lbm R
+s2=1.6050 //Btu/lbm R
+P2=3 //psia
+sf=0.2008 //Btu/lbm R
+sfg=1.6855 //Btu/lbm R
+x=(s1-sf)/sfg
+hf=109.37 //Btu/lbm
+hfg=1013.2 //Btu/;bm
+h2=hf+x*hfg
+work=h1-h2
+dw=y*work
+h2d=h1-dw
+//results
+printf("Work done = %d Btu/lbm",work)
+printf("\n work done in case 2 = %.1f Btu/lbm",dw)
+printf("\n Final state pressure = %d psia",P2)