1 files changed, 18 insertions, 0 deletions
diff --git a/1394/CH8/EX8.5.1/Ex8_5_1.sce b/1394/CH8/EX8.5.1/Ex8_5_1.sce
new file mode 100755
index 000000000..38f67f318
--- /dev/null
+++ b/1394/CH8/EX8.5.1/Ex8_5_1.sce
@@ -0,0 +1,18 @@
+
+
+clc
+//initialization of variables
+Dl=2.1*10^-5// Diffusion co efficient for Oxygen in air in cm^2/sec
+Dg = 0.23 //Diffusion co efficient for Oxygen in water in cm^2/sec
+R = 82 // Gas constant in cm^3-atm/g-mol-K
+T = 298 //Temperature in Kelvin
+l1 = 0.01 // film thickness in liquids in cm
+l2 = 0.1 // film thickness in gases in cm
+H1 = 4.3*10^4 // Henrys constant in atm
+c = 1/18 // concentration of water in g-mol/cm^3
+//Calculations
+kl = (Dl/l1)*c // m.t.c in liquid phase in mol/cm^2/sec
+kp = (Dg/l2)/(R*T)// m.t.c in gas phase in gmol/cm^2-sec-atm
+KL = 1/((1/kl)+(1/(kp*H1)))// Overall m.t.c in mol/cm^2-sec liquid phase
+//Results
+printf("The overall m.t.c in liquid side is %.1e mol/cm^2-sec",KL)