4 files changed, 39 insertions, 0 deletions
diff --git a/800/CH5/EX5.1/5_1.sce b/800/CH5/EX5.1/5_1.sce
new file mode 100755
index 000000000..b5baee8c3
--- /dev/null
+++ b/800/CH5/EX5.1/5_1.sce
@@ -0,0 +1,7 @@
+//clear//
+p = [ 1.44 .95 .74]';
+dt = 2.5
+t = [0 2.5 5]';
+dp(1) =( 3*p(1)+4p(2)-p(3))/(2*dt);
+for i=2:n1
+ dp p(i+3
diff --git a/800/CH5/EX5.2/5_2.sce b/800/CH5/EX5.2/5_2.sce
new file mode 100755
index 000000000..a835c0df8
--- /dev/null
+++ b/800/CH5/EX5.2/5_2.sce
@@ -0,0 +1,10 @@
+//clear//
+clc
+clear
+exec("5.2data.sci");
+ for i =1:length(t)
+g(i) =log(2*P0/(3*P0-P(i)));
+end
+plot2d(t,g); 
+
+xtitle( 'Figure E4-11.2 Plot of processed data', 't (min)', '2PTo/3PTo-PT' ) ;
diff --git a/800/CH5/EX5.3/5_3.sce b/800/CH5/EX5.3/5_3.sce
new file mode 100755
index 000000000..4c27ee486
--- /dev/null
+++ b/800/CH5/EX5.3/5_3.sce
@@ -0,0 +1,10 @@
+//Clear//
+clc
+clear
+exec("5.3data.sci");
+
+x=log(CHCl);
+y=log(-rHCl);
+plot2d(x,y); 
+
+xtitle( 'Figure E5-3.2 ', 'CHCl (g mol/ liter)', 'rHCl0 (g mol / cm^2.s)' ) ;
diff --git a/800/CH5/EX5.4/5_4.sce b/800/CH5/EX5.4/5_4.sce
new file mode 100755
index 000000000..d2a5e5c75
--- /dev/null
+++ b/800/CH5/EX5.4/5_4.sce
@@ -0,0 +1,12 @@
+//Clear//
+clc
+clear
+exec("5.4data.sci");
+
+rCH4 = (v0/W)*CCH4;x
+x=log(PCO);
+y = log(rCH4)
+alpha= (y(3)-y(2))/(x(3)-x(2));
+//plot2d(x,y)
+disp("alpha")
+disp(alpha)