1 files changed, 27 insertions, 0 deletions
diff --git a/2762/CH7/EX7.3.1/7_3_1.sce b/2762/CH7/EX7.3.1/7_3_1.sce
new file mode 100755
index 000000000..d3f275b61
--- /dev/null
+++ b/2762/CH7/EX7.3.1/7_3_1.sce
@@ -0,0 +1,27 @@
+//Transport Processes and Seperation Process Principles
+//Chapter 7
+//Example 7.3-1
+//Principles of Unsteady state and convective mass transfer
+//given data
+//si units
+Dab=6.92*(10^-6);//m2/s
+pa1=74;//Pa
+R=8314.3;
+T=318;
+L=1.1;
+ca1=pa1/(R*T);
+mu=1.932*(10^-5);
+rho=1.114;
+Sc=mu/(rho*Dab);
+D=0.020;
+v=0.8;
+Re=(D*v*rho)/mu;
+if Re<2100 then
+y=Re*Sc*(D/L)*(3.14/4);
+end
+//using a graph
+X=0.55;//(Ca-Ca0)/(Cai-Ca0)
+Ca0=0;//initial concentration
+Cai=2.799*(10^-5);
+Ca=X*(Cai-Ca0)+Ca0;
+mprintf("the concentration is given %f kg mol/m3",Ca)