initial commit / add all books

4 files changed, 61 insertions, 0 deletions

diff --git a/249/CH26/EX26.1/26_01.sce b/249/CH26/EX26.1/26_01.sce
new file mode 100755
index 000000000..a6e8af00c
--- /dev/null
+++ b/249/CH26/EX26.1/26_01.sce
@@ -0,0 +1,21 @@
+clear

+clc

+//Lets say F(Ri)/F=F_ri

+F_50=0.3;F_100=0.4;F_200=0.3;

+//The time required(min)for 3 size of particles is

+t_50=5;t_100=10;t_200=20;

+//Cosidering solids to be in plug flow with tp=8 min

+tp=8;

+//1-XBavg=[1-XB(50 um)]F(50 um)/F+ [1-XB(100 um)]F(100 um)/F+.......

+//Because for 3 sizes of particles,R1:R2:R3=t1:t2:t3

+//From eqn 25.23,[1-XB(Ri)]=(1-tp/t(ri))^3

+a=((1-(tp/t_50))^3)*F_50;b=((1-(tp/t_100))^3)*F_100;c=((1-(tp/t_200))^3)*F_200;

+g=[a,b,c];

+sum1=0;

+for p=1:3

+   if g(p)>0

+       sum1=sum1+g(p);

+end

+end

+f_converted=1-sum1;

+printf("\n The fraction of solid converted equals %f ",f_converted)
\ No newline at end of file
diff --git a/249/CH26/EX26.2/26_02.sce b/249/CH26/EX26.2/26_02.sce
new file mode 100755
index 000000000..2e40387bd
--- /dev/null
+++ b/249/CH26/EX26.2/26_02.sce
@@ -0,0 +1,9 @@
+clear

+clc

+t_avg=60;t=20;//min

+//For chemical rxn controlling, t =kR

+unconverted=((1/4)*(t/t_avg))-((1/20)*(t/t_avg)^2)+((1/120)*(t/t_avg)^3);

+//For ash layer diffusion controlling,t=k1R^2

+unconverted1=((1/5)*(t/t_avg))-((19/420)*(t/t_avg)^2)+((41/4620)*(t/t_avg)^3);

+c_avg=(unconverted+unconverted1)/2;

+printf("Fraction of original sulfide ore remain unconverted is %f",c_avg)

diff --git a/249/CH26/EX26.3/26_03.sce b/249/CH26/EX26.3/26_03.sce
new file mode 100755
index 000000000..43dba5853
--- /dev/null
+++ b/249/CH26/EX26.3/26_03.sce
@@ -0,0 +1,11 @@
+clear

+clc

+F=1000;//gm/min

+W=10000;//gm

+t_avg=W/F;

+F_50=300;F_100=400;F_200=300;//gm/min

+t_50=5;t_100=10;t_200=20;//min

+unconverted=((((1/4)*(t_50/t_avg))-((1/20)*(t_50/t_avg)^2)+((1/120)*(t_50/t_avg)^3))*(F_50/F))+((((1/4)*(t_100/t_avg))-((1/20)*(t_100/t_avg)^2)+((1/120)*(t_50/t_avg)^3))*(F_100/F))+((((1/4)*(t_200/t_avg))-((1/20)*(t_200/t_avg)^2)+((1/120)*(t_50/t_avg)^3))*(F_200/F));

+converted=1-unconverted;

+printf("The mean conversion of soild is %f",converted)

+printf("\n The answer slightly differs from those given in book as we have considered only significant terms in infinite series")
\ No newline at end of file
diff --git a/249/CH26/EX26.4/26_04.sce b/249/CH26/EX26.4/26_04.sce
new file mode 100755
index 000000000..dcdb234a6
--- /dev/null
+++ b/249/CH26/EX26.4/26_04.sce
@@ -0,0 +1,20 @@
+clear
+clc
+t1=1;//hr
+//t=k*(1/CAo)
+//For equal stoichiometric feed XA=XB=0.9
+//CAf/CAo=0.1
+t2=t1/0.1;
+//finding t/t_avg which gives XB=0.9 ie 1-XB=0.1
+ for a=0:0.0001:1;
+     //x=1-XB
+x=(1/4)*(a)-((1/20)*(a)^2)+((1/120)*(a)^3);
+if x >0.099 & x<0.1005
+    r=a;
+end
+end
+FBo=1;//tons/hr
+t_avg=t2/r;
+W=t_avg*FBo;
+printf("\n The needed weight of bed is %f",W)
+printf("tons")
\ No newline at end of file