initial commit / add all books

11 files changed, 126 insertions, 0 deletions

diff --git a/1793/CH7/EX7.1/7q1.sce b/1793/CH7/EX7.1/7q1.sce
new file mode 100755
index 000000000..ba26d78be
--- /dev/null
+++ b/1793/CH7/EX7.1/7q1.sce
@@ -0,0 +1,11 @@
+clc

+//initialisation of variables

+L= 30 //cm

+A= 177 //cm^2

+h= 50 //cm

+Q= 350 //cm^3

+t= 300 //sec

+//claculations

+k=Q*L/(A*h*t)

+//results

+printf ('hydraulic conductivity = % 3f cm/sec ',k)

diff --git a/1793/CH7/EX7.10/7q10.sce b/1793/CH7/EX7.10/7q10.sce
new file mode 100755
index 000000000..9c2dcada2
--- /dev/null
+++ b/1793/CH7/EX7.10/7q10.sce
@@ -0,0 +1,13 @@
+clc

+//initialisation of variables

+k1= 0.302e-7 //cm/sec

+k2= 0.12e-7 //cm/sec

+e1= 1.1

+e2= 0.9

+e= 0.75

+//calcualtions

+n= (log10((k1/k2)*((1+e1)/(1+e2))))/log10(e1/e2)

+C= k1/(e1^n/(1+e1))

+k= C*(e^n/(1+e))

+//results

+printf ('hydraulic conductivity = %e cm/sec ',k')

diff --git a/1793/CH7/EX7.11/7q11.sce b/1793/CH7/EX7.11/7q11.sce
new file mode 100755
index 000000000..a389ccc0d
--- /dev/null
+++ b/1793/CH7/EX7.11/7q11.sce
@@ -0,0 +1,15 @@
+clc

+//initialisation of variables

+H1= 2 //m

+H2= 3 //m

+H3= 4 //m

+k1= 1e-4 //cm/sec

+k2= 3.2e-2 //cm/sec

+k3= 4.1e-5 //cm/sec

+//calculations

+H= H1+H2+H3

+Kh= (1/H)*((k1*H1)+(k2*H2)+(k3*H3))

+Kv= H/((H1/k1)+(H2/k2)+(H3/k3))

+P= Kh/Kv

+//results

+printf ('ration of equivalent hydraulic conductivity = % 2f ',P)

diff --git a/1793/CH7/EX7.12/7q12.sce b/1793/CH7/EX7.12/7q12.sce
new file mode 100755
index 000000000..5c094d9c0
--- /dev/null
+++ b/1793/CH7/EX7.12/7q12.sce
@@ -0,0 +1,14 @@
+clc

+//initialisation of variables

+H= 450 //mm

+h= 150 //mm

+k1= 1e-2 //cm/sec

+k2= 3e-3 //cm/sec

+k3= 4.9e-4 //cm/sec

+h1= 300 //mm

+//calculations

+Kv= H/(h*(1/k1+1/k2+1/k3))

+i= h1/H

+q= Kv*i*100*3600

+//results

+printf ('rate of water supply = % 2f cm/hr ',q)

diff --git a/1793/CH7/EX7.2/7_2.sce b/1793/CH7/EX7.2/7_2.sce
new file mode 100755
index 000000000..bf7e5db2a
--- /dev/null
+++ b/1793/CH7/EX7.2/7_2.sce
@@ -0,0 +1,12 @@
+clc

+//initialisation of variables

+L= 203 //mm

+A= 10.3 //cm^2

+a= 0.39 //cm^2

+h0= 508 //mm

+h180= 305 //mm

+t= 180 //sec

+//calculations

+k= 2.303*a*L*log10(h0/h180)/(A*t)

+//results

+printf ('hydraulic conductivity of sand = % 2f in/sec ',k)

diff --git a/1793/CH7/EX7.3/7_3.sce b/1793/CH7/EX7.3/7_3.sce
new file mode 100755
index 000000000..5c8dd60df
--- /dev/null
+++ b/1793/CH7/EX7.3/7_3.sce
@@ -0,0 +1,9 @@
+clc

+//initialisation of varilables

+k= 3e-7 //cm/sec

+n= 0.0911e-4 //g*sec/cm^2

+dw= 1 //g/cc

+//calculations

+K= k*n/dw

+//results

+printf ('absolute premeability = % 4f cm^2 ',K)

diff --git a/1793/CH7/EX7.4/7q4.sce b/1793/CH7/EX7.4/7q4.sce
new file mode 100755
index 000000000..6285ccdfb
--- /dev/null
+++ b/1793/CH7/EX7.4/7q4.sce
@@ -0,0 +1,11 @@
+clc

+//initialisation of variables

+k= 5.3e-5 //m/sec

+H= 3 //m

+a= 0.139 //radians

+//calculations

+A= H*cos(a)

+i= sin(a)

+q= k*i*A*3600

+//results

+printf ('rate of seepage = % 4f m^3/hr/m ',q)

diff --git a/1793/CH7/EX7.5/7q5.sce b/1793/CH7/EX7.5/7q5.sce
new file mode 100755
index 000000000..21d909224
--- /dev/null
+++ b/1793/CH7/EX7.5/7q5.sce
@@ -0,0 +1,14 @@
+clc

+//initialisation of variables

+L= 50 //m

+k= 0.08e-2//m/sec

+h= 4 //m

+H1= 3 //m

+H= 8 //m

+a= 0.139 //radians

+//calculations

+i= h*cos(a)/L

+A= H1*cos(a)

+q= k*i*A

+//results

+printf ('flow rate = % 2f m^3/sec/m ',q)

diff --git a/1793/CH7/EX7.6/7q6.sce b/1793/CH7/EX7.6/7q6.sce
new file mode 100755
index 000000000..363e3dbc8
--- /dev/null
+++ b/1793/CH7/EX7.6/7q6.sce
@@ -0,0 +1,9 @@
+clc

+//initialisation of variables

+k1= 0.02 //cm/sec

+e1= 0.5 

+e2= 0.65

+//calculations

+k2= k1*(e2^3/(1+e2))/(e1^3/(1+e1))

+//results

+printf ('hydraulic conductivity at void ratio of 0.65 = % 2f cm/sec ',k2)

diff --git a/1793/CH7/EX7.8/7q8.sce b/1793/CH7/EX7.8/7q8.sce
new file mode 100755
index 000000000..644a094a2
--- /dev/null
+++ b/1793/CH7/EX7.8/7q8.sce
@@ -0,0 +1,8 @@
+clc

+//initialisation of variables

+e= 0.6

+D10= 0.09 //mm

+//calculations

+k= 2.4622*(D10^2*(e^3/(1+e)))^0.7825

+//results

+printf ('hydraulic conductivity = % 4f cm/sec ',k)

diff --git a/1793/CH7/EX7.9/7q9.sce b/1793/CH7/EX7.9/7q9.sce
new file mode 100755
index 000000000..0ea46862c
--- /dev/null
+++ b/1793/CH7/EX7.9/7q9.sce
@@ -0,0 +1,10 @@
+clc

+//initialisation of variables

+e= 0.6

+D10= 0.09 //mm

+D60= 0.16 //mm

+//calculations

+Cu=D60/D10

+k= 35*(e^3/(1+e))*(Cu^0.6)*(D10^2.32)

+//results

+printf ('hydraulic conductivity = % 3f cm/sec ',k)