From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 2762/CH12/EX12.3.1/12_3_1.sce | 33 +++++++++++++++++++++++++++++++++
 2762/CH12/EX12.5.2/12_5_2.sce | 23 +++++++++++++++++++++++
 2762/CH12/EX12.8.1/12_8_1.sce | 13 +++++++++++++
 3 files changed, 69 insertions(+)
 create mode 100755 2762/CH12/EX12.3.1/12_3_1.sce
 create mode 100755 2762/CH12/EX12.5.2/12_5_2.sce
 create mode 100755 2762/CH12/EX12.8.1/12_8_1.sce

(limited to '2762/CH12')

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)
-- 
cgit