initial commit / add all books

3 files changed, 69 insertions, 0 deletions

diff --git a/2762/CH12/EX12.3.1/12_3_1.sce b/2762/CH12/EX12.3.1/12_3_1.sce
new file mode 100755
index 000000000..ff5ac9bae
--- /dev/null
+++ b/2762/CH12/EX12.3.1/12_3_1.sce
@@ -0,0 +1,33 @@
+//Transport Processes and Seperation Process Principles

+//Chapter 12

+//Example 12.1-1

+//Liquid Liquid and Fluid Solid Seperation Process

+//given data

+t=[0 3 3.5 4 4.5 5 5.5 6 6.2 6.5 6.8];

+cbyc0=[0 0 0.002 0.030 0.155 0.396 0.658 0.903 0.933 0.975 0.993];

+ncbyc0=1-cbyc0

+plot2d(t,cbyc0)

+xtitle("Breakthrough curve","time,t h","c/c0")

+v = inttrap(t,ncbyc0)

+mprintf("the break point time as seen from the graph is 3.65 h");

+tb=3.65;

+cbyc01=[0 0.002 0.030 0.1];

+t1=[0 3 3.5 3.65];

+ncbyc01=1-cbyc01

+v1 = inttrap(t1,ncbyc01)

+mprintf(" the fraction capacity broken to the used point is %f",tb/v)

+//total bed length: Hb=(tu/tt)*Ht

+Ht=14;

+Hunb=(1-v1/v)*Ht;//ht of unused bed

+Hb=(v1/v)*Ht;

+mprintf(" the total bed length is %f ",Hunb)

+//b) tb=6, hence new bed height Hbb

+tbn=6;

+Hbb=(tbn/tb)*Hb;

+HT=Hbb+Hunb;

+AFR=754*3600*0.00115;//air flow rate=754 cm3/s, 1h=3600s, density=0.00115 g/cm3

+c0=600;//inlet stream concn of 600 ppm

+TAA=(c0/(10^6))*AFR*v;//total alcohol absorbed

+m=79.2;//mass of carbon present in grams

+SC=TAA/m;//saturation capacity

+mprintf("fraction of new bed used up to the break point is %f",Hbb/HT)

diff --git a/2762/CH12/EX12.5.2/12_5_2.sce b/2762/CH12/EX12.5.2/12_5_2.sce
new file mode 100755
index 000000000..09f4d0881
--- /dev/null
+++ b/2762/CH12/EX12.5.2/12_5_2.sce
@@ -0,0 +1,23 @@
+//Transport Processes and Seperation Process Principles

+//Chapter 12

+//Example 12.5-2

+//Liquid Liquid and Fluid Solid Seperation Process

+//given data

+ya=0.04;//concn of A in upper layer

+yb=0.02;//concn of B in upper layer

+yc=0.94;//concn of C in upper layer

+xa=0.12;//concn of A in lower layer

+xb=0.86;//concn of B in lower layer

+xc=0.02;//concn of C in lower layer

+M=100;//mass of mixture in kg

+xam=0.1;

+//Material Balance Equations

+//eq 1: V+L=M

+//eq 2:ya*V+xa*L=xam*M

+A=[1 1;ya xa];

+B=[M; M*xam];

+X=inv(A)*B

+V=X(1,1);

+L=X(2,1);

+mprintf("amt of vapour phase=%f kg ",V)

+mprintf("amt of liquid phase=%f kg ",L)

diff --git a/2762/CH12/EX12.8.1/12_8_1.sce b/2762/CH12/EX12.8.1/12_8_1.sce
new file mode 100755
index 000000000..f6d0a5109
--- /dev/null
+++ b/2762/CH12/EX12.8.1/12_8_1.sce
@@ -0,0 +1,13 @@
+//Transport Processes and Seperation Process Principles

+//Chapter 12

+//Example 12.8-1

+//Liquid Liquid and Fluid Solid Seperation Process

+//given data

+//for 80% extraction, unextracted fraction, Es=0.2

+Es=0.2;

+//Dab*(t/a*a) is constant

+t1=3.11;//time reqd to leach 80% of solution

+a2=1.5/2;//radius of reduced particale size

+a1=2/2;//radius od the particle size

+t2=(t1*a2*a2)/(a1*a1);

+mprintf("the time of leaching= %f h",t2)