diff options
author | priyanka | 2015-06-24 15:03:17 +0530 |
---|---|---|
committer | priyanka | 2015-06-24 15:03:17 +0530 |
commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
tree | ab291cffc65280e58ac82470ba63fbcca7805165 /23/CH3/EX3.9 | |
download | Scilab-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-x | 23/CH3/EX3.9/Example_3_9.pdf | bin | 0 -> 5052 bytes | |||
-rwxr-xr-x | 23/CH3/EX3.9/Example_3_9.sce | 50 |
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 Binary files differnew file mode 100755 index 000000000..08fbca3f6 --- /dev/null +++ b/23/CH3/EX3.9/Example_3_9.pdf 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 |