diff options
Diffstat (limited to '2837/CH10')
| -rwxr-xr-x | 2837/CH10/EX10.1/Ex10_1.sce | 23 | ||||
| -rwxr-xr-x | 2837/CH10/EX10.10/Ex10_10.sce | 19 | ||||
| -rwxr-xr-x | 2837/CH10/EX10.11/Ex10_11.sce | 17 | ||||
| -rwxr-xr-x | 2837/CH10/EX10.12/Ex10_12.sce | 14 | ||||
| -rwxr-xr-x | 2837/CH10/EX10.13/Ex10_13.sce | 17 | ||||
| -rwxr-xr-x | 2837/CH10/EX10.2/Ex10_2.sce | 12 | ||||
| -rwxr-xr-x | 2837/CH10/EX10.3/Ex10_3.sce | 11 | ||||
| -rwxr-xr-x | 2837/CH10/EX10.4/Ex10_4.sce | 10 | ||||
| -rwxr-xr-x | 2837/CH10/EX10.5/Ex10_5.sce | 12 | ||||
| -rwxr-xr-x | 2837/CH10/EX10.6/Ex10_6.sce | 13 | ||||
| -rwxr-xr-x | 2837/CH10/EX10.7/Ex10_7.sce | 15 | ||||
| -rwxr-xr-x | 2837/CH10/EX10.8/Ex10_8.sce | 12 | ||||
| -rwxr-xr-x | 2837/CH10/EX10.9/Ex10_9.sce | 25 |
13 files changed, 200 insertions, 0 deletions
diff --git a/2837/CH10/EX10.1/Ex10_1.sce b/2837/CH10/EX10.1/Ex10_1.sce new file mode 100755 index 000000000..fea25d60d --- /dev/null +++ b/2837/CH10/EX10.1/Ex10_1.sce @@ -0,0 +1,23 @@ +clc
+clear
+//Initialization of variables
+p=3000 //psia
+T=250 //F
+//calculations
+disp("From table 1, keenan and keynes,")
+vf=0.01700
+disp("From table 4,")
+dvf=-18.3*10^-5
+v=vf+dvf
+disp("From table 1,")
+hf=218.48
+disp("From table 4,")
+dhf=6.13
+h=hf+dhf
+sf=0.3675
+dsf=-4.34*10^-3
+s=sf+dsf
+//results
+printf("Specific volume = %.5f cu ft/lb",v)
+printf("\n Enthalpy = %.2f Btu/lb",h)
+printf("\n Entropy = %.4f Btu/lb per deg R",s)
diff --git a/2837/CH10/EX10.10/Ex10_10.sce b/2837/CH10/EX10.10/Ex10_10.sce new file mode 100755 index 000000000..70357fa23 --- /dev/null +++ b/2837/CH10/EX10.10/Ex10_10.sce @@ -0,0 +1,19 @@ +clc
+clear
+//Initialization of variables
+disp("From table 1 of keenan and keynes,")
+in=440000 //lb/hr
+out=255000 //lb/hr
+p1=400 //psia
+t1=700 //F
+p2=35 //psia
+t2=290 //F
+vel=500 //ft/s
+hp=44000 //hp
+ent=1362.7 //Btu/lb
+//calculations
+ein=ent*in
+eout=hp*2544 + out*1183 + 925000
+h2= (ein-eout)/185000
+//results
+printf("Specific enthalpy of exhaust steam = %d Btu/lb",h2)
diff --git a/2837/CH10/EX10.11/Ex10_11.sce b/2837/CH10/EX10.11/Ex10_11.sce new file mode 100755 index 000000000..5c5540251 --- /dev/null +++ b/2837/CH10/EX10.11/Ex10_11.sce @@ -0,0 +1,17 @@ +clc
+clear
+//Initialization of variables
+disp("From table 1 of keenan and keynes,")
+h1=1351.1 //Btu/lb
+p1=600 //psia
+t1=700 //F
+p2=234 //psia
+h2=1.6865
+h1=1.5875
+t3=101.74
+//calculations
+t2=660 //F
+loss= (h2-h1)*(t3+459.69)
+//results
+printf("Final state of steam is %d psia and %d F",p2,t2)
+printf("\n Loss of available energy = %.1f Btu/lb",loss)
diff --git a/2837/CH10/EX10.12/Ex10_12.sce b/2837/CH10/EX10.12/Ex10_12.sce new file mode 100755 index 000000000..b5936d4a7 --- /dev/null +++ b/2837/CH10/EX10.12/Ex10_12.sce @@ -0,0 +1,14 @@ +clc
+clear
+//Initialization of variables
+disp("From table 2 of keenan and keynes,")
+p1=98.87 //psia
+p2=31.78 //psia
+t1=80 //F
+h2=26.365 //btu/lb
+h1=11.554 //btu/lb
+hfg=67.203 //btu/lb
+//calculations
+x=(h2-h1)/hfg
+//results
+printf("The state of vapor leaving is %.2f psia with a quality of %.2f percent",p2,x*100)
diff --git a/2837/CH10/EX10.13/Ex10_13.sce b/2837/CH10/EX10.13/Ex10_13.sce new file mode 100755 index 000000000..9dfad50f4 --- /dev/null +++ b/2837/CH10/EX10.13/Ex10_13.sce @@ -0,0 +1,17 @@ +clc
+clear
+//Initialization of variables
+ps=216 //psig
+pb=29.12 //in of Hg
+p2=0.4 //in
+t2=244 //F
+//calculations
+pa=0.491*pb
+pabs=pa + p2*0.491
+plb=pa+ ps
+hcal=1166.5 //Btu/lb
+h2=1200.1 //Btu/lb
+h3=831.9 //Btu/lb
+y=-(hcal-h2)/h3
+//results
+printf("Mean state in the line is %.1f psia with a moisture content of %.2f percent",plb,y*100)
diff --git a/2837/CH10/EX10.2/Ex10_2.sce b/2837/CH10/EX10.2/Ex10_2.sce new file mode 100755 index 000000000..25ef422e8 --- /dev/null +++ b/2837/CH10/EX10.2/Ex10_2.sce @@ -0,0 +1,12 @@ +clc
+clear
+//Initialization of variables
+h=1100 //Btu/lb
+P=100 //psia
+//calculations
+disp("From table 2 of keenan and keynes,")
+hg=1187.2 //Btu/lb
+hfg=888.8 //Btu/lb
+y=-(h-hg)/hfg
+//results
+printf("The state is %d psia with a moisture content of %.2f percent",P,y*100)
diff --git a/2837/CH10/EX10.3/Ex10_3.sce b/2837/CH10/EX10.3/Ex10_3.sce new file mode 100755 index 000000000..09a1407fd --- /dev/null +++ b/2837/CH10/EX10.3/Ex10_3.sce @@ -0,0 +1,11 @@ +clc
+clear
+//Initialization of variables
+disp("From table 1 of keenan and keynes,")
+v1=0.2688
+//calculations
+v2=3.060
+p2=200 //psia
+t2=600 //F
+//results
+printf("State of steam is %d psia and %d F",p2,t2)
diff --git a/2837/CH10/EX10.4/Ex10_4.sce b/2837/CH10/EX10.4/Ex10_4.sce new file mode 100755 index 000000000..7bf9bdfdf --- /dev/null +++ b/2837/CH10/EX10.4/Ex10_4.sce @@ -0,0 +1,10 @@ +clc
+clear
+//Initialization of variables
+disp("From table 2 of keenan and keynes,")
+t1=439.60 //F
+u1=1118.4 //Btu/lb
+//calculations
+p2=380 //psia
+//results
+printf("The state of steam is saturated at %d psia and %.2f F",p2,t1)
diff --git a/2837/CH10/EX10.5/Ex10_5.sce b/2837/CH10/EX10.5/Ex10_5.sce new file mode 100755 index 000000000..068cba5c3 --- /dev/null +++ b/2837/CH10/EX10.5/Ex10_5.sce @@ -0,0 +1,12 @@ +clc
+clear
+//Initialization of variables
+disp("From table 2 of keenan and keynes,")
+p1=1 //in of Hg
+s=1.9812
+//calculations
+sf=2.0387
+sfg=1.9473
+y=-(s-sf)/sfg
+//results
+printf("The state is %d in of Hg with a moisture content of %.2f percent",p1,y*100)
diff --git a/2837/CH10/EX10.6/Ex10_6.sce b/2837/CH10/EX10.6/Ex10_6.sce new file mode 100755 index 000000000..14e556b3f --- /dev/null +++ b/2837/CH10/EX10.6/Ex10_6.sce @@ -0,0 +1,13 @@ +clc
+clear
+//Initialization of variables
+disp("From table 1 of keenan and keynes,")
+h1=1204.8 //Btu/lb
+q=174 //Btu/lb
+//calculations
+h2=h1+q
+p2=30 //psia
+t2=720 //F
+//results
+printf("Final state of steam is %d psia and %d F",p2,t2)
+printf("\n Final enthalpy is %.1f Btu/lb",h2)
diff --git a/2837/CH10/EX10.7/Ex10_7.sce b/2837/CH10/EX10.7/Ex10_7.sce new file mode 100755 index 000000000..5d78a3296 --- /dev/null +++ b/2837/CH10/EX10.7/Ex10_7.sce @@ -0,0 +1,15 @@ +clc
+clear
+//Initialization of variables
+disp("From table 1 of keenan and keynes,")
+p=70 //psia
+x=0.1
+p2=198 //psia
+//calculations
+v1=6.206
+v2=0.017
+vx=v1-x*(v1-v2)
+t2=1400 //F
+//results
+printf("Final specific volume = %.3f cu ft",vx)
+printf("\n Final state is %d psia and %d F",p2,t2)
diff --git a/2837/CH10/EX10.8/Ex10_8.sce b/2837/CH10/EX10.8/Ex10_8.sce new file mode 100755 index 000000000..ea6a4465b --- /dev/null +++ b/2837/CH10/EX10.8/Ex10_8.sce @@ -0,0 +1,12 @@ +clc
+clear
+//Initialization of variables
+disp("From table 1 of keenan and keynes,")
+p=400 //psia
+t1=700 //F
+p2=85 //psia
+//calculations
+s2=1.6398 //units/lb
+t2=350 //F
+//results
+printf("Final state of steam is %d psia and %d F",p2,t2)
diff --git a/2837/CH10/EX10.9/Ex10_9.sce b/2837/CH10/EX10.9/Ex10_9.sce new file mode 100755 index 000000000..dc76ee16f --- /dev/null +++ b/2837/CH10/EX10.9/Ex10_9.sce @@ -0,0 +1,25 @@ +clc
+clear
+//Initialization of variables
+p1=20 //psia
+p2=140 //psia
+J=778
+t2=150 //F
+t1=30 //F
+//calculations
+disp("From Table A-3,")
+v1=2.0884 //cu ft/lb
+v2=0.33350 //cu ft/lb
+h2=95.709
+h1=81.842
+n=log(p2/p1) /log(v1/v2)
+W=(p2*v2-p1*v1)*144/(1-n)
+du=h2-h1 + (p1*v1-p2*v2)*144/J
+Q=du+W/J
+s2=0.17718
+s1=0.18126
+Q2=((t2+t1)/2 +460) *(s2-s1)
+//results
+printf("Work of compression = %d ft-lb",W)
+printf("\n Heat removed per pound of refrigerant = %.3f Btu/lb",Q)
+printf("\n Heat removed in case 2 = %.4f Btu",Q2)
|