2 files changed, 31 insertions, 0 deletions
diff --git a/2513/CH10/EX10.1/10_1.sce b/2513/CH10/EX10.1/10_1.sce
new file mode 100755
index 000000000..bb4c9f50a
--- /dev/null
+++ b/2513/CH10/EX10.1/10_1.sce
@@ -0,0 +1,20 @@
+clc
+//initialisation of variables
+w1=1000//ft
+w2=2000//ft
+r=700//gpm
+d=10//days
+q=2//ft
+u=1.87*[(3.4*10^-5)/(3.2*10^4)]*(d^6/d)//ft
+W=7.94//ft
+p=114.6*(7*10^2)*W/(3.2*10^4)//ft
+U=1.87*[(3.4*10^-5)/(3.2*10^4)]*(4*d^6/d)//ft
+Wu=6.55//ft
+P=114.6*(7*10^2)*Wu/(3.2*10^4)//ft
+R=54//ft
+//CALCULATIONS
+W1=R+p+P//ft
+D=R+q*p//ft
+//RESULTS
+printf('the expected drawndown the first well is pumped at a rate=% f ft',W1)
+printf('the drawdown in each well all the three are pupped at a rate=% f ft',D)
diff --git a/2513/CH10/EX10.3/10_3.sce b/2513/CH10/EX10.3/10_3.sce
new file mode 100755
index 000000000..94e8d20fe
--- /dev/null
+++ b/2513/CH10/EX10.3/10_3.sce
@@ -0,0 +1,11 @@
+clc
+//initialisation of variables
+g=20//ft
+k=10^-1//cm/sec
+g1=3.28*10^-3//fps
+w=2//ft
+w1=30//ft
+//CALCULATIONS
+Q=(1/2)*(g1)*[(g^2)-(2^2)]/(w1)//cfs
+//RESULTS
+printf('the flow into a foot of gallery=% f cfs',Q)