initial commit / add all books

6 files changed, 113 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)

diff --git a/2762/CH13/EX13.2.2/13_2_2.sce b/2762/CH13/EX13.2.2/13_2_2.sce
new file mode 100755
index 000000000..0b2dcd1ec
--- /dev/null
+++ b/2762/CH13/EX13.2.2/13_2_2.sce
@@ -0,0 +1,16 @@
+//Transport Processes and Seperation Process Principles

+//Chapter 13

+//Example 13.2-2

+//Membrane Seperation Processes

+//given data

+//nomenclature similar to previous problem

+c1=200;//urea in g/m3

+c2=0;

+kc1=1.25e-5;

+pm=8.73e-6;

+kc2=3.33e-5;

+Na= (c1-c2)/((1/kc1)+(1/pm)+(1/kc2));

+A=2;//area in m2

+R=Na*3600*A;//rate of removal

+mprintf("flux=%f g/s m2",Na)

+mprintf("rate of removal= %f g urea/h",R)

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

+//Chapter 13

+//Example 13.4-1

+//Membrane Seperation Processes

+//given data

+pda=50e-10;

+pdb=5e-10;

+alphastar=pda/pdb;

+a=1-alphastar;

+ph=80;

+p1=20;

+x0=0.25;

+b=(ph/p1)*(1-x0)-1+(alphastar*(ph/p1)*x0)+alphastar;

+c=-alphastar*(ph/p1)*x0;

+yp=(-b+sqrt(b*b-4*a*c))/(2*a);//permeate composition

+xf=0.5;

+theta=(xf-x0)/(yp-x0);//fraction permeated

+qf=10000;

+t=2.54e-3;

+Am=(theta*qf*yp)/((pda/t)*(ph*x0-p1*yp));//membrane area

+mprintf("1. permeate composition= %f",yp)

+mprintf(" 2. fraction permeated= %f",theta)

+mprintf(" 3. membrane area=%f m2",Am)

diff --git a/2762/CH13/EX13.4.2/13_4_2.sce b/2762/CH13/EX13.4.2/13_4_2.sce
new file mode 100755
index 000000000..853ed9d00
--- /dev/null
+++ b/2762/CH13/EX13.4.2/13_4_2.sce
@@ -0,0 +1,22 @@
+//Transport Processes and Seperation Process Principles

+//Chapter 13

+//Example 13.4-2

+//Membrane Seperation Processes

+//given data

+theta=0.2;//fraction cut

+p1=19;//pressure selected for use

+ph=190;//pressure selectred for use

+alphas=10

+a1=theta+(p1/ph)-(theta*(p1/ph))-(alphas*theta)-(alphas*(p1/ph))+(alphas*(p1/ph)*theta);

+xf=0.209;//feed composition

+b1=1-theta-xf-(p1/ph)+(theta*(p1/ph))+(alphas*theta)+(alphas*(p1/ph))-(alphas*(p1/ph)*theta)+alphas*xf;

+c1= -alphas*xf;

+yp=(-b1+sqrt(b1*b1-4*a1*c1))/(2*a1);//permeate composition

+x0=(xf-theta*yp)/(1-theta);//outlet reject composition

+qf=1000000;//feed rate

+Pad=500e-10;

+t=2.54e-3;

+Am=(theta*qf*yp)/((Pad/t)*(ph*x0-p1*yp));//area of membrane

+mprintf("the permeate composition= %f ",yp)

+mprintf("outlet reject composition= %f ",x0)

+mprintf("area of membrane= %f cm2",Am)

diff --git a/2762/CH13/EX13.4.3/13_4_3.sce b/2762/CH13/EX13.4.3/13_4_3.sce
new file mode 100755
index 000000000..c49dc499b
--- /dev/null
+++ b/2762/CH13/EX13.4.3/13_4_3.sce
@@ -0,0 +1,16 @@
+//Transport Processes and Seperation Process Principles

+//Chapter 13

+//Example 13.4-3

+//Membrane Seperation Processes

+//given data

+//nomenclature similar to previous problem

+xf=0.5;

+theta=0.2;//fraction cut

+p1=20;//pressure selected for use

+ph=80;//pressure selectred for use

+alphas=10;

+xom=(xf*(1+(alphas-1)*(p1/ph)*(1-xf)))/(alphas*(1-xf)+xf);

+xf1=0.65;

+xom1=(xf1*(1+(alphas-1)*(p1/ph)*(1-xf1)))/(alphas*(1-xf1)+xf1);

+mprintf("minimum reject concentration at xf=0.5= %f",xom);

+mprintf(" minimum reject concentration at xf=0.65= %f",xom1);

diff --git a/2762/CH13/EX13.9.1/13_9_1.sce b/2762/CH13/EX13.9.1/13_9_1.sce
new file mode 100755
index 000000000..1cd6a3a04
--- /dev/null
+++ b/2762/CH13/EX13.9.1/13_9_1.sce
@@ -0,0 +1,13 @@
+//Transport Processes and Seperation Process Principles

+//Chapter 13

+//Example 13.9-1

+//Membrane Seperation Processes

+//given data

+rhow=997;//density of water in kg/m3

+m=0.1/1000;

+n=2*m;//NaCl gives 2 ions n in kg mol

+Vm=1/rhow;//specific volume 

+R=82.057/1000;//gas constant

+T=298.15;//25 deg C to K

+pi=(n/Vm)*(R*T)

+mprintf("osmotic pressure= %f atm" ,pi)