1 files changed, 13 insertions, 0 deletions
diff --git a/1394/CH18/EX18.4.1/Ex18_4_1.sce b/1394/CH18/EX18.4.1/Ex18_4_1.sce
new file mode 100755
index 000000000..81a0c7ec1
--- /dev/null
+++ b/1394/CH18/EX18.4.1/Ex18_4_1.sce
@@ -0,0 +1,13 @@
+
+clc
+//initialization of variables
+D1 = 3.0*10^-7 // cm^2/sec
+H1 = 0.18 // mol/cc-atm
+D2 = 1.4*10^-6 // cm^2/sec
+H2 = 2.2*10^-3 // mol/cc-atm
+H11 = 13 // atm-cc/mol
+H21 = 0.6 // atm-cc/mol
+//Calculations
+Beta = (D1*H1/(D2*H2))*(H11/H21)// Membrane selectivity
+//Results
+printf("The membrane selectivity is %.f",Beta)