1 files changed, 22 insertions, 0 deletions
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)