diff options
Diffstat (limited to '1793/CH8')
-rwxr-xr-x | 1793/CH8/EX8.1/8q1.sce | 17 | ||||
-rwxr-xr-x | 1793/CH8/EX8.2/8q2.sce | 18 | ||||
-rwxr-xr-x | 1793/CH8/EX8.3/8q3.sce | 12 | ||||
-rwxr-xr-x | 1793/CH8/EX8.4/8q4.sce | 17 | ||||
-rwxr-xr-x | 1793/CH8/EX8.5/8q5.sce | 15 |
5 files changed, 79 insertions, 0 deletions
diff --git a/1793/CH8/EX8.1/8q1.sce b/1793/CH8/EX8.1/8q1.sce new file mode 100755 index 000000000..2dfb2c4ff --- /dev/null +++ b/1793/CH8/EX8.1/8q1.sce @@ -0,0 +1,17 @@ +clc
+//initialisation of variables
+H1= 12 //in
+H2= 20 //in
+z= 8 //in
+h1= 24 //in
+h= 20 //in
+k1= 0.026 //in/sec
+D= 3 //in
+//calculations
+k2= H2*k1/((z/(1-h/h1))-H1)
+i= h1/(H1+H2)
+A= %pi/4*D^2
+keq= (H1+H2)/((H1/k1)+(H2/k2))
+q= keq*A*i*3600
+//results
+printf ('rate of water flow = % 2f in^3/hr ',q)
diff --git a/1793/CH8/EX8.2/8q2.sce b/1793/CH8/EX8.2/8q2.sce new file mode 100755 index 000000000..7668b13d9 --- /dev/null +++ b/1793/CH8/EX8.2/8q2.sce @@ -0,0 +1,18 @@ +clc
+//initialisation of variables
+Nd= 6
+H1= 5.6 //m
+H2= 2.2 //m
+k= 5e-5 //cm/sec
+dL= 4.1 //m
+//calculations
+H= (H1-H2)/Nd
+h1= 5.61-H
+h2= 5.61-5*H
+q= 2.38*(H1-H2)*k/Nd
+i= H/dL
+//results
+printf ('at point a,water will rise to height of = % 3f m ',h1)
+printf ('at point b,water will rise to height of = % 3f m ',h2)
+printf ('total rate of seepage per unit lenghth = %e m^3/sec/m ',q)
+printf ('average hydraulic gradient at c = % 3f ',i)
diff --git a/1793/CH8/EX8.3/8q3.sce b/1793/CH8/EX8.3/8q3.sce new file mode 100755 index 000000000..7aa5a5adf --- /dev/null +++ b/1793/CH8/EX8.3/8q3.sce @@ -0,0 +1,12 @@ +clc
+//initialisation of variables
+k1= 5.67 //ft/day
+k2= 11.34 //ft/day
+//from graph
+Nd= 8
+Nf= 2.5
+H= 20
+//calculations
+q= sqrt(k1*k2)*H*Nf/Nd
+//results
+printf ('average rate of flow = % 2f ft^3/day/ft ',q)
diff --git a/1793/CH8/EX8.4/8q4.sce b/1793/CH8/EX8.4/8q4.sce new file mode 100755 index 000000000..a433e4ae3 --- /dev/null +++ b/1793/CH8/EX8.4/8q4.sce @@ -0,0 +1,17 @@ +clc
+//initialisation of variables
+B= 6 //m
+L= 120 //m
+s= 3 //m
+T= 6 //m
+x= 2.4 //m
+H= 5 //m
+k= 0.008 //cm/sec
+//calculations
+b=B/2
+a1= b/T
+a2= s/T
+a3= x/b
+Q= 0.378*k*H*L*36*24
+//results
+printf ('seepage under the dam = % 2f m^3/day ',Q)
diff --git a/1793/CH8/EX8.5/8q5.sce b/1793/CH8/EX8.5/8q5.sce new file mode 100755 index 000000000..160285b36 --- /dev/null +++ b/1793/CH8/EX8.5/8q5.sce @@ -0,0 +1,15 @@ +clc
+//initialisation of variables
+b= %pi/4 //degrees
+a= %pi/6.//degrees
+B= 10 //ft
+H= 20 //ft
+h= 25 //ft
+k= 2e-4 //ft/min
+//calculations
+r= H/tan(b)
+d= 0.3*r+(h-H)/tan(b)+B+h/tan(a)
+L= d/cos(a)-sqrt((d/cos(a))^2-(H/sin(a))^2)
+q= k*L*tan(a)*sin(a)*24*60
+//results
+printf ('seepage rate = % 4f ft^3/day/ft ',q)
|