summaryrefslogtreecommitdiff
path: root/914/CH2/EX2.8/ex2_8.sce
diff options
context:
space:
mode:
Diffstat (limited to '914/CH2/EX2.8/ex2_8.sce')
-rwxr-xr-x914/CH2/EX2.8/ex2_8.sce21
1 files changed, 21 insertions, 0 deletions
diff --git a/914/CH2/EX2.8/ex2_8.sce b/914/CH2/EX2.8/ex2_8.sce
new file mode 100755
index 000000000..2dfe4a0bd
--- /dev/null
+++ b/914/CH2/EX2.8/ex2_8.sce
@@ -0,0 +1,21 @@
+clc;
+warning('off');
+printf("\n\n example2.8 - pg39");
+// given
+delx=0.3-0; //[m] - length
+d=0.05-0; //[m] - diameter
+A=(%pi*d^2)/4; //[m^2] - area;
+R=8.314*10^3; //[N*m/kmol*K] - gas constant
+xco1=0.15; // mole prcent of co in one tank
+xco2=0; // mole percent of co in other tank
+p2=1; //[atm] - pressure in one tank
+p1=p2; //[atm] - pressure in other tank
+D=0.164*10^-4; //[m^2/sec] - diffusion coefficient
+T=298.15; //[K] - temperature
+// using the formula (Na/A)=(Ja/A)=-D*(delca/delx)=-(D/R*T)*(delpa/delx);
+delpa=(p2*xco2-p1*xco1)*10^5; //[N/m^2] - pressure difference
+Na=-((D*A)/(R*T))*(delpa/delx);
+disp(Na)
+printf("\n\n The initial rate of mass transfer of co2 is %ekmol/sec",Na);
+printf("\n\n In order for the pressure to remain at 1atm, a diffusion of air must occur which is in the opposite direction and equal to %ekmol/sce",Na);
+