6 files changed, 88 insertions, 0 deletions
diff --git a/1394/CH17/EX17.1.1/Ex17_1_1.sce b/1394/CH17/EX17.1.1/Ex17_1_1.sce
new file mode 100755
index 000000000..5fb2828ac
--- /dev/null
+++ b/1394/CH17/EX17.1.1/Ex17_1_1.sce
@@ -0,0 +1,11 @@
+
+clc
+//initialization of variables
+K = 1.46*10^-4 // lit/mol-sec (rate constant)
+cpyridine = 0.1 // mol/lit
+K1 = 2.0*10^-5 // cm^2/sec
+//Calculations
+D = K*cpyridine // sec^-1
+k0 = (sqrt(D*K1))*10^5//in x*10^-5 cm/sec
+//Results
+printf("The diffusion co efficient of methyl iodide in benzene is %.1f x10^-5 cm/sec",k0)
diff --git a/1394/CH17/EX17.1.2/Ex17_1_2.sce b/1394/CH17/EX17.1.2/Ex17_1_2.sce
new file mode 100755
index 000000000..8d8502069
--- /dev/null
+++ b/1394/CH17/EX17.1.2/Ex17_1_2.sce
@@ -0,0 +1,11 @@
+
+clc
+//initialization of variables
+R = 0.3 // cm
+K1 = 18.6 // sec^-1
+D = 0.027 // cm^2/sec
+//Calculations
+l = R/3 // cm
+n = (sqrt(D/(K1*(l^2))))*coth(sqrt(K1*(l^2)/D))
+//Results
+printf("The value of reduction in reaction rate due to diffusion is %.2f",n)
diff --git a/1394/CH17/EX17.1.3/Ex17_1_3.sce b/1394/CH17/EX17.1.3/Ex17_1_3.sce
new file mode 100755
index 000000000..77ed1a484
--- /dev/null
+++ b/1394/CH17/EX17.1.3/Ex17_1_3.sce
@@ -0,0 +1,9 @@
+
+clc
+//initialization of variables
+k = 16*10^-3 // m.t.c in cm/sec
+D  = 1.25*10^-5 // Diffusion co efficient in cm^2/sec
+//Calculations 
+K1 = (k^2)/D
+//Results
+printf("The rate constant is %.f sec^-1",K1)
diff --git a/1394/CH17/EX17.2.1/Ex17_2_1.sce b/1394/CH17/EX17.2.1/Ex17_2_1.sce
new file mode 100755
index 000000000..8ab0329e9
--- /dev/null
+++ b/1394/CH17/EX17.2.1/Ex17_2_1.sce
@@ -0,0 +1,12 @@
+
+clc
+//initialization of variables
+D2 = 5*10^-6 // The diffusion co efficient of the new compound in cm^2/sec
+Nu = 3 // The factor
+D1 = 0.7*10^-5 // The diffusion co efficient of the original compound in cm^2/sec
+c2l = 1.5*10^-5 // the new solubility in mol/cc
+c1l = 3*10^-7 // The old solubility in mol/cc
+//Calculations
+k = 1 + ((D2*c2l)/(Nu*D1*c1l))// The number of times the rate has increased to the previous rate
+//Results
+printf("There is about a %.f fold increase in rate",k)
diff --git a/1394/CH17/EX17.4.1/Ex17_4_1.sce b/1394/CH17/EX17.4.1/Ex17_4_1.sce
new file mode 100755
index 000000000..4478f2f3c
--- /dev/null
+++ b/1394/CH17/EX17.4.1/Ex17_4_1.sce
@@ -0,0 +1,29 @@
+
+
+clc
+//initialization of variables
+//For first reaction
+D1 = 9.3*10^-5 // cm^2/sec
+D2 = 5.3*10^-5 // cm^2/sec
+K1exp = 1.4*10^11 // litre/mol-sec
+sigma12 = 2.8*10^-8 // cm
+N = (6.02*10^23)/10^3// liter/cc-mol
+K1 = 4*%pi*(D1+D2)*sigma12*N // Rate constant for first reaction in litre/mol-sec
+printf("The rate constant for this reaction is %.1e litre/",K1)
+if K1>K1exp
+     then disp("This reaction is controlled more by chemical factors")
+    else
+         disp("This reaction is diffusion controlled")
+end
+//Second reaction
+D1 = 5.3*10^-5 // cm^2/sec
+D2 = 0.8*10^-5 // cm^2/sec
+sigma12 = 5*10^-8 // cm
+K1exp = 3.8*10^7 // litre/mol-sec
+K1 = 4*%pi*(D1+D2)*sigma12*N // Rate constant for second reaction in litre/mol-sec
+printf("The rate constant for this reaction is %.1e litre/mol-sec",K1)
+if K1>K1exp then 
+    disp("This reaction is controlled more by chemical factors")
+else 
+    disp("The reaction is diffusion controlled")
+end
diff --git a/1394/CH17/EX17.5.1/Ex17_5_1.sce b/1394/CH17/EX17.5.1/Ex17_5_1.sce
new file mode 100755
index 000000000..d992de91a
--- /dev/null
+++ b/1394/CH17/EX17.5.1/Ex17_5_1.sce
@@ -0,0 +1,16 @@
+
+clc
+//intitialization of variables
+d = 5// cm
+v = 200 // cm/sec
+nu = 0.01 // cm^2/sec
+D = 3.2*10^-5 // cm^2/sec
+l = 30*10^-4 // cm
+//Calculations
+Re = d*v/nu // Flow is turbulent
+E = d*v/2 // cm^2/sec
+tou1 = (d^2)/(4*E)// sec
+tou2 = (l^2)/(4*D)
+tou = tou1 + tou2 // sec
+//Results
+printf("The relaxation time is %.2f sec",tou)