diff options
Diffstat (limited to '1100/CH10')
-rwxr-xr-x | 1100/CH10/EX10.1/10_1.sce | 11 | ||||
-rwxr-xr-x | 1100/CH10/EX10.10/10_10.sce | 14 | ||||
-rwxr-xr-x | 1100/CH10/EX10.11/10_11.sce | 9 | ||||
-rwxr-xr-x | 1100/CH10/EX10.2/10_2.sce | 11 | ||||
-rwxr-xr-x | 1100/CH10/EX10.3/10_3.sce | 10 | ||||
-rwxr-xr-x | 1100/CH10/EX10.4/10_4.sce | 18 | ||||
-rwxr-xr-x | 1100/CH10/EX10.5/10_5.sce | 13 | ||||
-rwxr-xr-x | 1100/CH10/EX10.6/10_6.sce | 19 |
8 files changed, 105 insertions, 0 deletions
diff --git a/1100/CH10/EX10.1/10_1.sce b/1100/CH10/EX10.1/10_1.sce new file mode 100755 index 000000000..ae6f25b4c --- /dev/null +++ b/1100/CH10/EX10.1/10_1.sce @@ -0,0 +1,11 @@ +clc
+//initialisation of variables
+p= 100//psia
+vg= 4.432 //cu ft/lb
+vf= 0.01744 //cu ft/lb
+T= 327.8 //F
+sfg= 1.1286 //Bu/lb R
+//CALCULATIONS
+Q=(T+460)*sfg
+//RESULTS
+printf ('Heat of vaourisation= %.f Btu/lb',Q)
diff --git a/1100/CH10/EX10.10/10_10.sce b/1100/CH10/EX10.10/10_10.sce new file mode 100755 index 000000000..ee7daea44 --- /dev/null +++ b/1100/CH10/EX10.10/10_10.sce @@ -0,0 +1,14 @@ + clc
+//initialisation of variables
+T= 100 //F
+P= 1000 //psia
+dv= -5.1*10^-5 //cu ft/lb
+dh= 2.70 //Btu/lb
+vf= 0.01613 //cu ft/lb
+hf= 67.97 //Btu/lb
+//CALCULATIONS
+h= dh+hf
+v= dv+vf
+//RESULTS
+printf ('Volume= %.5f cu ft/lb',v)
+printf (' \n Enthalpy= %.2f Btu/lb',h)
diff --git a/1100/CH10/EX10.11/10_11.sce b/1100/CH10/EX10.11/10_11.sce new file mode 100755 index 000000000..edc708223 --- /dev/null +++ b/1100/CH10/EX10.11/10_11.sce @@ -0,0 +1,9 @@ +clc
+//initialisation of variables
+h1= 1183.2 //Btu/lb
+hg= 1198.4 //Btu/lb
+hfg= 843.0 //Btu/lb
+//CALCULATIONS
+n= 1-((hg-h1)/hfg)
+//RESULTS
+printf ('quality= %.3f ',n)
diff --git a/1100/CH10/EX10.2/10_2.sce b/1100/CH10/EX10.2/10_2.sce new file mode 100755 index 000000000..0758ed55c --- /dev/null +++ b/1100/CH10/EX10.2/10_2.sce @@ -0,0 +1,11 @@ +clc
+//initialisation of variables
+S= 1.6315 //Btu/lb R
+//CALCULATIONS
+P= 70 //psia
+t= 302.92 //F
+h= 1180.6 //Btu/lb
+//RESULTS
+printf ('Pressure= %.2f Psia',P)
+printf (' \n Temperature = %.2f F',t)
+printf (' \n Enthalpy= %.1f Btu/lb',h)
diff --git a/1100/CH10/EX10.3/10_3.sce b/1100/CH10/EX10.3/10_3.sce new file mode 100755 index 000000000..997d15cf3 --- /dev/null +++ b/1100/CH10/EX10.3/10_3.sce @@ -0,0 +1,10 @@ +clc
+//initialisation of variables
+T= 250 //F
+hg= 1164.0 //Btu/lb
+P= 29.825 //Psia
+Vg= 13.821 //cu ft/lb
+//CALCULATIONS
+ug= hg-(P*Vg*144/778)
+//RESULTS
+printf ('Internal energy= %.1f Btu/lb',ug)
diff --git a/1100/CH10/EX10.4/10_4.sce b/1100/CH10/EX10.4/10_4.sce new file mode 100755 index 000000000..bafcfb4a1 --- /dev/null +++ b/1100/CH10/EX10.4/10_4.sce @@ -0,0 +1,18 @@ +clc
+//initialisation of variables
+P= 100 //psia
+n= 40
+vf= 0.01774 //cu ft/lb
+vg= 4.432 //cu ft/lb
+hf= 298.4 //Btu/lb
+hfg= 888.8 //Btu/lb
+sg= 1.6026 //Btu/lb R
+sfg= 1.1286 //Btu/lb R
+//CALCULATIONS
+vx= (n/100)*vf+(1-(n/100))*vg
+hx= hf+(1-(n/100))*hfg
+sx= sg-(n/100)*sfg
+//RESULTS
+printf ('Volume= %.2f cu ft/lb',vx)
+printf (' \n Entropy = %.2f Btu/lb R',sx)
+printf (' \n Enthalpy= %.1f Btu/lb',hx)
diff --git a/1100/CH10/EX10.5/10_5.sce b/1100/CH10/EX10.5/10_5.sce new file mode 100755 index 000000000..d3f3e49fa --- /dev/null +++ b/1100/CH10/EX10.5/10_5.sce @@ -0,0 +1,13 @@ +clc
+//initialisation of variables
+P= 100 //psia
+n= 0.97
+hf= 298.4 //Btu/lb
+hfg= 888.8 //Btu/lb
+hg= 1187.2 //Btu/lb
+//CALCULATIONS
+hx= hf+n*hfg
+hx1= hg-(1-n)*hfg
+//RESULTS
+printf ('Enthalpy= %.f Btu/lb',hx)
+printf (' \n Precise Enthalpy= %.1f Btu/lb',hx1)
diff --git a/1100/CH10/EX10.6/10_6.sce b/1100/CH10/EX10.6/10_6.sce new file mode 100755 index 000000000..cb9c95d09 --- /dev/null +++ b/1100/CH10/EX10.6/10_6.sce @@ -0,0 +1,19 @@ + clc
+//initialisation of variables
+P= 15 //psia
+S= 1.7050 //Btu/lb R
+sg= 1.7549 //btu/lb R
+sfg= 1.4415 //Bru/lb R
+hg= 1150.8 //btu/lb
+hfg= 969.7 //Btu/lb
+vg= 26.29 //cu ft/lb
+vfg= 26.27 //cu ft/lb
+//CALCULATIONS
+n= (sg-sx)/sfg
+sx= sg-n*sfg
+hx= hg-n*hfg
+vx= vg-n*vfg
+//RESULTS
+printf ('Volume= %.2f cu ft/lb',vx)
+printf (' \n Entropy = %.2f Btu/lb R',sx)
+printf (' \n Enthalpy= %.1f Btu/lb',hx)
|