2 files changed, 37 insertions, 0 deletions
diff --git a/1394/CH4/EX4.2.1/Ex4_2_1.sce b/1394/CH4/EX4.2.1/Ex4_2_1.sce
new file mode 100755
index 000000000..40a07e842
--- /dev/null
+++ b/1394/CH4/EX4.2.1/Ex4_2_1.sce
@@ -0,0 +1,22 @@
+
+clc
+//initialization of variables
+z = 80 // metres
+c1 = 410 //ppm
+c = 860 // ppm
+d = 2 //km
+v = 0.6 //km/hr
+r = 3600 //sec/hr
+//Calculations
+t1 = (d/v)*r//sec
+E = (-((z^2)/(4*t1))/(log(410/860)))*10^4// cm^2/sec//answer in textbook is wrong
+d2 = 15 //km
+c2 = c*(sqrt(d/d2))//ppm
+//Results
+printf("The value of dispersion coefficent is %.f cm^2/sec",E)
+printf("\n The value of maximum concentration  at 15 km downstream is %.f ppm",c2)
+
+
+
+
+
diff --git a/1394/CH4/EX4.2.2/Ex4_2_2.sce b/1394/CH4/EX4.2.2/Ex4_2_2.sce
new file mode 100755
index 000000000..2097e2fe4
--- /dev/null
+++ b/1394/CH4/EX4.2.2/Ex4_2_2.sce
@@ -0,0 +1,15 @@
+
+clc
+//initialization of variables
+d = 10 //cm
+s = 3 // km
+v = 500 //cm/sec
+nu = 0.15 // cm^2/sec
+//Calculations
+E = 0.5*d*v // cm^2/sec
+c1 = 1000 // m/km
+c2 = 1/100 // m/cm
+z = sqrt(4*E*c1*c2*s/v)
+percent = z*100/(s*c1)
+//Results
+printf(" The percent of pipe containing mixed gases is %.1f percent",percent)