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