4 files changed, 96 insertions, 0 deletions
diff --git a/2762/CH9/EX9.3.1/9_3_1.sce b/2762/CH9/EX9.3.1/9_3_1.sce
new file mode 100755
index 000000000..2abba7d1d
--- /dev/null
+++ b/2762/CH9/EX9.3.1/9_3_1.sce
@@ -0,0 +1,16 @@
+//Transport Processes and Seperation Process Principles
+//Chapter 9
+//Example 9.3-1
+//Drying of Process Materials
+//given data
+P=101.32;
+pa=2.76;
+pas=3.5;
+H=(18.02/28.97)*(pa/(P-pa));//Humidity=(mol wt of water/mol wt of air)*(pa/(P-pa))
+Hs=(18.02/28.97)*(pas/(P-pas));//saturation humidity
+Hp=100*(H/Hs);//percentage humidity
+Hr=100*(pa/pas);//relative humidity
+mprintf("1) Humidity= %f kg H20/kg air",H);
+mprintf("2)saturation Humidity= %f kg H20/kg air",Hs);
+mprintf("3) percentage Humidity= %f percent",Hp);
+mprintf("4) relative Humidity= %f percent",Hr);
diff --git a/2762/CH9/EX9.6.3/9_6_3.sce b/2762/CH9/EX9.6.3/9_6_3.sce
new file mode 100755
index 000000000..e66f5c7cc
--- /dev/null
+++ b/2762/CH9/EX9.6.3/9_6_3.sce
@@ -0,0 +1,33 @@
+//Transport Processes and Seperation Process Principles
+//Chapter 9
+//Example 9.6-3
+//Drying of Process Materials
+//given data
+//SI units
+H=0.010;
+Tdry=65.6+273;//dry bulb tempereature
+Twet=28.9+273;//wet bulb temp obtained from the humidity chart
+Hw=0.26;
+Vh=(22.41/273)*Tdry*((1/28.7)+(1/18.02)*H);//((humid volume= molar vol of ideal gas at STP)/(Temp at STP)*(22.41/273)*T*((1/28.7)+(1/18.02)*H))
+rho=(1+H)/Vh;//density of dry air + moiture
+v=6.1;//velocity of air
+G=v*3600*rho;
+h=0.0204*(G^0.8);
+lemdaw=2433*1000;
+Rc=(h/lemdaw)*(Tdry-Twet)*3600;
+A=0.457^2
+rate=A*Rc;
+//end933100355
+H=0.010;
+Tdryeng=150;//dry bulb tempereature
+Tweteng=84;//wet bulb temp obtained from the humidity chart
+rhoeng=0.0647;
+veng=20;//velocity of air
+Geng=veng*3600*rhoeng;
+heng=0.0128*(Geng^0.8);
+lemdaweng=1046;
+Rceng=(heng/lemdaweng)*(Tdryeng-Tweteng);
+Aeng=1.5*1.5;
+rateeng=Aeng*Rceng;
+mprintf("rate of drying using si units= %f kg H20/h",rate)
+mprintf(" rate of drying using english units= %f lbm H20/h",rateeng)
diff --git a/2762/CH9/EX9.7.1/9_7_1.sce b/2762/CH9/EX9.7.1/9_7_1.sce
new file mode 100755
index 000000000..afd8a0495
--- /dev/null
+++ b/2762/CH9/EX9.7.1/9_7_1.sce
@@ -0,0 +1,25 @@
+//Transport Processes and Seperation Process Principles
+//Chapter 9
+//Example 9.7-1
+//Drying of Process Materials
+//given data
+X=(1/1000)*[195 150 100 65 50 40]
+R=0.01*[151 121 90 71 37 27]
+Rinv=[]
+for i=1:6
+    Rinv(i)=1/R(1,i);
+    
+end
+v=inttrap(X,Rinv)
+
+X1=0.38;
+X2=0.195;
+XC=X2;
+Rc=1.51;
+A=18.58;
+Ls=399;
+t1=(Ls/A)*(-v);//as the graph is a decreasing function
+t=(X1-X2)*(Ls/(A*Rc))
+plot(X,Rinv,rec=[0,0,0.3,5])
+xtitle("Graphical Representation of Falling Rate Period","X","1/R")
+mprintf("the time for drying= %f h",t+t1)
diff --git a/2762/CH9/EX9.7.2/9_7_2.sce b/2762/CH9/EX9.7.2/9_7_2.sce
new file mode 100755
index 000000000..8e9aa0a8f
--- /dev/null
+++ b/2762/CH9/EX9.7.2/9_7_2.sce
@@ -0,0 +1,22 @@
+//Transport Processes and Seperation Process Principles
+//Chapter 9
+//Example 9.7-2
+//Drying of Process Materials
+//given data
+X=(1/1000)*[195 150 100 65 50 40]
+R=0.01*[151 121 90 71 37 27]
+Rinv=[]
+for i=1:6
+    Rinv(i)=1/R(1,i);
+    
+end
+v=inttrap(X,Rinv)
+
+X1=0.38;
+XC=0.195;
+X2=0.040;
+Rc=1.51;
+A=18.58;
+Ls=399;
+t=(Ls*XC/(A*Rc))*(log(XC/X2)/log(%e));
+mprintf("Drying time= %f h",t)