diff options
Diffstat (limited to '800/CH11')
-rwxr-xr-x | 800/CH11/EX11.1/11_1.sce | 8 | ||||
-rwxr-xr-x | 800/CH11/EX11.3/11_3.sce | 22 | ||||
-rwxr-xr-x | 800/CH11/EX11.4/11_4.sce | 6 | ||||
-rwxr-xr-x | 800/CH11/EX11.5/11_5.sce | 7 |
4 files changed, 43 insertions, 0 deletions
diff --git a/800/CH11/EX11.1/11_1.sce b/800/CH11/EX11.1/11_1.sce new file mode 100755 index 000000000..61ceebb13 --- /dev/null +++ b/800/CH11/EX11.1/11_1.sce @@ -0,0 +1,8 @@ +//clear//
+clc
+clear
+exec("11.1data.sci");
+WAZ1=DAB*CT0*(yAb-yAs)/s;
+WAZ2=c*DAB*CT0*log((1-yAs)/(1-yAb))/s;
+disp(WAZ1)
+disp(WAZ2)
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)
diff --git a/800/CH11/EX11.4/11_4.sce b/800/CH11/EX11.4/11_4.sce new file mode 100755 index 000000000..cf68df236 --- /dev/null +++ b/800/CH11/EX11.4/11_4.sce @@ -0,0 +1,6 @@ +clc
+clear
+exec("11.4data.sci")
+X2=1-(1/exp((log(1/(1-X1)))*(1/2)*((2)^.5)));
+disp("X2 =")
+disp(X2)
\ No newline at end of file diff --git a/800/CH11/EX11.5/11_5.sce b/800/CH11/EX11.5/11_5.sce new file mode 100755 index 000000000..7be1b1b00 --- /dev/null +++ b/800/CH11/EX11.5/11_5.sce @@ -0,0 +1,7 @@ +//clear//
+clc
+clear
+exec("11.5data.sci")
+X2=1-(1/exp((log(1/(1-X1)))*((T2/T1)^(5/12))));
+disp("X2 =")
+disp(X2)
|