initial commit / add all books

1 files changed, 23 insertions, 0 deletions

diff --git a/2762/CH13/EX13.2.1/13_2_1.sce b/2762/CH13/EX13.2.1/13_2_1.sce
new file mode 100755
index 000000000..43d3db873
--- /dev/null
+++ b/2762/CH13/EX13.2.1/13_2_1.sce
@@ -0,0 +1,23 @@
+//Transport Processes and Seperation Process Principles

+//Chapter 13

+//Example 13.2-1

+//Membrane Seperation Processes

+//given data

+//i) is to find the eqation

+disp('the original equation is Na= (c1-c2)/((1/kc1)+(1/pm)+(1/kc2))')

+disp(' but 1/kc2=0(as it is given that kc2 is large or almost infinite) hence it is Na=(c1-c2)/((1/kc1)+(1/pm))')

+//(b)

+Dab=7e-11;//membrane diffusivity in m2/s

+Kd=1.5;//distribution coefficint

+L=3e-5;//membrane thickness in m

+pm=(Dab*Kd)/L;

+c1=3e-2;//concn of the dilute soln containing A

+c2=0.5e-2;//concn on the other side

+kc2=2.02e-5;//mass transfer coefficient

+Na=(c1-c2)/((1/kc2)+(1/pm));//to interface concn C2i, Na=kc2*(C2i-c2) hence,

+C2i=(Na/kc2)+c2;

+//also Kd=c2is/C2i

+c2is=Kd*C2i;

+mprintf("flux= %f kg mol/s m2",Na);

+mprintf("interface concentration: %f kg mol/m3",C2i)

+mprintf("interface concentration: %f kg mol/m3",c2is)