1 files changed, 22 insertions, 0 deletions
diff --git a/800/CH11/EX11.3/11_3.sce b/800/CH11/EX11.3/11_3.sce
new file mode 100755
index 000000000..a8089f8c4
--- /dev/null
+++ b/800/CH11/EX11.3/11_3.sce
@@ -0,0 +1,22 @@
+clc
+clear
+exec("11.3data.sci");
+//this is only Part A of the problem. 
+dp=(6*(D^2)*L/4)^(1/3);
+disp("Particle diameter dp =")
+disp(dp)
+disp("m")
+ac=6*(1-phi)*(1/dp);
+disp("Surface area pervolume of bed =")
+disp(ac)
+disp("m^2/m^3")
+Re =dp*U/v;
+Y=(2*r*Lp+2*r^2)/dp^2;
+Reprime=Re/((1-phi)*Y);
+DAB=DAB0*(T/T0)^(1.75);
+Sc=v/DAB;
+Shprime=((Reprime)^.5)*Sc^(1/3);
+kc=DAB*(1-phi)*Y*(Shprime)/(dp*phi);
+X=1-exp(-kc*ac*z/U);
+disp("X =")
+disp(X)