initial commit / add all books

1 files changed, 23 insertions, 0 deletions

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)