1 files changed, 17 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)