summaryrefslogtreecommitdiff
path: root/479/CH11/EX11.1/Example_11_1.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /479/CH11/EX11.1/Example_11_1.sce
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '479/CH11/EX11.1/Example_11_1.sce')
-rwxr-xr-x479/CH11/EX11.1/Example_11_1.sce33
1 files changed, 33 insertions, 0 deletions
diff --git a/479/CH11/EX11.1/Example_11_1.sce b/479/CH11/EX11.1/Example_11_1.sce
new file mode 100755
index 000000000..463ff2230
--- /dev/null
+++ b/479/CH11/EX11.1/Example_11_1.sce
@@ -0,0 +1,33 @@
+//Chemical Engineering Thermodynamics
+//Chapter 11
+//Liquefaction of Gases
+
+//Example 11.1
+clear;
+clc;
+
+//Given
+P1 = 8.74;//Initial pressure in Kgf/sq cm
+P2 = 2.41;//Final pressure in Kgf/sq cm
+H1 = 327.13;//Enthalpy of inlet stream in Kcal/Kg
+H2 = H1;//Enthalpy of exit stream in Kcal/Kg ,since throttling is isenthalpic
+Hl = 26.8;//Enthalpy of liquid at the final condition in Kcal/Kg
+Hg = 340.3;//Enthalpy of gas at the final condition in Kcal/Kg
+vl = 152*10^-5;//Specific volume of liquid at the final condition in cubic meter/Kg
+vg = 0.509;//Specific volume of gas at the final condition in cubic meter/Kg
+v1 = 0.1494;//Initial specific volume in cubic meter/Kg
+
+//To Calculate the dryness fraction of exit stream and the ratio of upstream to downstream diameters
+//(i)Calculation of the dryness fraction of exit stream
+//From equation 3.13(a) (page no 82)
+x = (H2- Hl)/(Hg-Hl);
+mprintf('(i)The dryness fraction of the exit stream is %f',x);
+
+//(ii)Calculation of the ratio of upstream to downstream pipe diameters
+//From equation 3.13(b) (page no 82)
+v2 = (vl*(1-x))+(x*vg);//Total specific volume at the final condition in cubic meter/Kg
+//u1 = u2; since KE changes are negligible
+//From continuity equation: A2/A1 = D2^2/D1^2 = v2/v1 ; let required ratio,r = D2/D1;
+r = (v2/v1)^(1/2);
+mprintf('\n (ii)The ratio of upstream to downstream diameters is %f',r);
+//end \ No newline at end of file