summaryrefslogtreecommitdiff
path: root/23/CH3/EX3.9
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /23/CH3/EX3.9
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 '23/CH3/EX3.9')
-rwxr-xr-x23/CH3/EX3.9/Example_3_9.pdfbin0 -> 5052 bytes
-rwxr-xr-x23/CH3/EX3.9/Example_3_9.sce50
2 files changed, 50 insertions, 0 deletions
diff --git a/23/CH3/EX3.9/Example_3_9.pdf b/23/CH3/EX3.9/Example_3_9.pdf
new file mode 100755
index 000000000..08fbca3f6
--- /dev/null
+++ b/23/CH3/EX3.9/Example_3_9.pdf
Binary files differ
diff --git a/23/CH3/EX3.9/Example_3_9.sce b/23/CH3/EX3.9/Example_3_9.sce
new file mode 100755
index 000000000..a26e79729
--- /dev/null
+++ b/23/CH3/EX3.9/Example_3_9.sce
@@ -0,0 +1,50 @@
+clear;
+clc;
+
+//To find Approx Value
+function[A]=approx(V,n)
+ A=round(V*10^n)/10^n;//V-Value n-To what place
+ funcprot(0)
+endfunction
+
+//Example 3.9
+//Caption : Program to Find Molar Volume of n-Butane by Various Eqn
+//Given Values
+T=510;//Temp=510K
+P=25;//Pressure=25bar
+R=0.08314;
+
+//(a)
+//By the Ideal-gas Equation
+
+V=approx(R*T/P,4);//m^3/kmol
+disp('(a)By the Ideal-gas Equation')
+disp('m^3/kmol',V,'The Molar Volume is ')
+
+//(b)
+//The Generalized compressibility-factor Correlation
+Tc=425.1;//From App.B
+Pc=37.96;//From App.B
+Tr=approx(T/Tc,1);
+Pr=approx(P/Pc,3)
+//Interpolation in Tables E.1 and E.2 then provides
+Z0=0.865;
+Z1=0.038;
+w=0.200;
+Z=Z0+(w*Z1);
+V=approx(Z*R*T/P,2);//m^3/kmol
+disp('(b)The Generalized compressibility-factor Correlation')
+disp('m^3/kmol',V,'The Molar Volume is ')
+
+//(c)
+//The Generalized Virial-coefficient Correlation
+B0=0.083-(0.422/(Tr^1.6));//Eqn (3.61)
+B1=0.139-(0.172/(Tr^4.2));//Eqn (3.62)
+K=approx(B0+(w*B1),3)//K=BPc/RTc By Eqn (3.59)
+//By Eqn(3.58)
+Z=approx(1+(K*Pr/Tr),3)
+V=approx(Z*R*T/P,4);//m^3/kmol
+disp('(c)The Generalized Virial-coefficient Correlation')
+disp('m^3/kmol',V,'The Molar Volume is ')
+
+//End \ No newline at end of file