11 files changed, 198 insertions, 0 deletions
diff --git a/2513/CH14/EX14.1/14_1.sce b/2513/CH14/EX14.1/14_1.sce
new file mode 100755
index 000000000..aacd7d76e
--- /dev/null
+++ b/2513/CH14/EX14.1/14_1.sce
@@ -0,0 +1,14 @@
+clc
+//initialisation of variables
+n=0.013//ft
+s=4.90//ft
+v=0.590//ft
+d=0.463//ft
+w=3.9*10^-2//ft
+p=1.696//ft
+//CALCULATIONS
+V=s*v//fps
+Q=s*d//cfs
+N=(w*p)^2*1000//percent
+//RESULTS
+printf('the velocity of flow and rate of discharge=% f percent',N)
diff --git a/2513/CH14/EX14.10/14_10.sce b/2513/CH14/EX14.10/14_10.sce
new file mode 100755
index 000000000..fcd89b02c
--- /dev/null
+++ b/2513/CH14/EX14.10/14_10.sce
@@ -0,0 +1,17 @@
+clc
+//initialisation of variables
+Q1=30//cfs
+Q2=16//cfs
+a=32//sq ft
+r=1.6//ft
+i=10^-4//ft
+n=1.25*10^-2//ft
+h2=0.50//ft
+c=3.33//ft
+h1=5.20//ft
+l=72//ft
+s=12320//ft
+//CALCULATIONS
+L=s-l//ft
+//RESULTS
+printf('the forchheimer s methos =% f ft',L)
diff --git a/2513/CH14/EX14.11/14_11.sce b/2513/CH14/EX14.11/14_11.sce
new file mode 100755
index 000000000..b38161ef8
--- /dev/null
+++ b/2513/CH14/EX14.11/14_11.sce
@@ -0,0 +1,15 @@
+clc
+//initialisation of variables
+q=1.0//cfs
+g=2.0//percent
+g1=5.6//percent
+r=0.015//cfs
+w=90//percent
+Q=10*0.9*q//ft
+p=0.10//ft
+h=(3.48*g1^1/3)//ft
+d=p^2/3*100//ft
+//CALCULATIONS
+D=h*d//in
+//RESULTS
+printf('The maximum depth of flow in the gutter=% f in',D)
diff --git a/2513/CH14/EX14.2/14_2.sce b/2513/CH14/EX14.2/14_2.sce
new file mode 100755
index 000000000..89d258b2f
--- /dev/null
+++ b/2513/CH14/EX14.2/14_2.sce
@@ -0,0 +1,18 @@
+clc
+//initialisation of variables
+v=1.34//fps
+s=3.7*10^-3//fps
+k=0.8//ft
+r=20//ft
+k1=0.04//ft
+v=3.0//fps
+v1=5.0//fps
+d=10^-1//ft
+d1=1.34//ft
+//CALCULATIONS
+K=r*k1//ft
+V=sqrt(r)//times
+D=d*(v/d1)^2//cm
+D1=d*(v1/d1)^2//cm
+//RESULTS
+printf('the minimum velocity and the gradient at the which coarse quartz=% f cm',D1)
diff --git a/2513/CH14/EX14.3/14_3.sce b/2513/CH14/EX14.3/14_3.sce
new file mode 100755
index 000000000..65a527410
--- /dev/null
+++ b/2513/CH14/EX14.3/14_3.sce
@@ -0,0 +1,26 @@
+
+
+clc
+//initialisation of variables
+v=2.5//fps
+q=0.873//cfs
+s=5.20//percent
+a=0.252//ft
+r=0.684//ft
+r1=1.46//ft
+v1=0.776//ft
+q1=0.196//ft
+n=0.78//ft
+R=0.939//ft
+//CALCULATIONS
+V=v1*v//fps
+Q=q1*q//cfs
+R1=r1*s//percent
+Vs=R*v//ft
+N=n*Vs//fps
+Qs=a*R*q//cfs
+N1=n*Qs//cfs
+//RESULTS
+printf('the required grades and associated velocity and rates=% f cfs',V)
+printf('the depth and a grade=% f cfs',Q)
+printf('the self cleaning flow=% f cfs',N1)
diff --git a/2513/CH14/EX14.4/14_4.sce b/2513/CH14/EX14.4/14_4.sce
new file mode 100755
index 000000000..de640c06f
--- /dev/null
+++ b/2513/CH14/EX14.4/14_4.sce
@@ -0,0 +1,21 @@
+clc
+//initialisation of variables
+Q=0.873//cfs
+s=5.20//percent
+d=0.161//cfs
+q1=0.185//ft
+d2=2.5//ft
+v=0.91//ft
+s1=1.70//ft
+s3=1.46//ft
+w=0.185//ft
+d1=0.30//ft
+v1=0.732//ft
+//CALCULATIONS
+q=d/Q//cfs
+Vs=v*d2//fps
+Ss=s1*s//percent
+Va=v1*d2//fps
+Ss1=s3*s//percent
+//RESULTS
+printf('the depth and velocity of flow and the required slop=% f percent',Ss1)
diff --git a/2513/CH14/EX14.5/14_5.sce b/2513/CH14/EX14.5/14_5.sce
new file mode 100755
index 000000000..ee69c21d4
--- /dev/null
+++ b/2513/CH14/EX14.5/14_5.sce
@@ -0,0 +1,30 @@
+clc
+//initialisation of variables
+d1=0.67//ft
+h1=2.00//ft
+h2=4.04//ft
+hv1=0.062//ft
+hv2=0.254//ft
+d=0.19//ft
+h=0.2//ft
+h1=0.04//ft
+q=0.644//ft
+q1=0.65//ft
+v=0.92//ft
+d2=6.5//ft
+v1=3.69//ft
+d3=0.542//ft
+hv3=0.21//ft
+delv=0.15//ft
+d4=0.02//ft
+//CALCULATIONS
+H=d1+hv1//ft
+H1=d1+hv2//ft
+he=h*d//ft
+hi=d+h1//ft
+H2=d3+hv3//ft
+he1=h*delv//ft
+S=d4+h1//ft
+//RESULTS
+printf('the required slope=% f ft',hi)
+printf('the lower sewer and the invert drop in the transition=% f ft',S)
diff --git a/2513/CH14/EX14.6/14_6.sce b/2513/CH14/EX14.6/14_6.sce
new file mode 100755
index 000000000..e573327b2
--- /dev/null
+++ b/2513/CH14/EX14.6/14_6.sce
@@ -0,0 +1,28 @@
+clc
+//initialisation of variables
+q=60//cfs
+D=4//ft
+w=0.177//ft
+s=0.59//ft
+h=4.0//ft
+d1=1.0//ft
+v=0.90//ft
+d1=0.42//ft
+h1=6.0//ft
+h2=1.5//ft
+dl=1.3//ft
+p=0.41//ft
+u=0.8//ft
+u1=3.2//ft
+y=0.45//ft
+//CALCULATIONS
+H=s*D//ft
+d2=d1*D//ft
+V=v*D//ft
+P=p*D//ft
+D1=y*D//ft
+//RESULTS
+printf('the critical depth=% f ft',H)
+printf('the alternate stages for an energy =% f ft',V)
+printf('the alternate stages for an energy head=% f ft',P)
+printf('the lower alternate stage with upper alternate stage=% f ft',D1)
diff --git a/2513/CH14/EX14.7/14_7.sce b/2513/CH14/EX14.7/14_7.sce
new file mode 100755
index 000000000..39fd874e3
--- /dev/null
+++ b/2513/CH14/EX14.7/14_7.sce
@@ -0,0 +1,11 @@
+clc
+//initialisation of variables
+d=106//cfs
+q=400//cfs
+d1=0.40//cfs
+w=10//ft
+//CALCULATIONS
+D=d/q//cfs
+D1=d1*w//cfs
+//RESULTS
+printf('the water level in this well rises=% f cfs',D1)
diff --git a/2513/CH14/EX14.8/14_8.sce b/2513/CH14/EX14.8/14_8.sce
new file mode 100755
index 000000000..59d8604d7
--- /dev/null
+++ b/2513/CH14/EX14.8/14_8.sce
@@ -0,0 +1,10 @@
+clc
+//initialisation of variables
+Q=8.07*10^-2//ft
+N=0.012//ft
+d=0.47//ft
+q=10//ft
+//CALCULATIONS
+D=d*q//ft
+//RESULTS
+printf('teh water surface in the sewer when it is flowing at maximum capacity=% f ft',D)
diff --git a/2513/CH14/EX14.9/14_9.sce b/2513/CH14/EX14.9/14_9.sce
new file mode 100755
index 000000000..1956e5e0c
--- /dev/null
+++ b/2513/CH14/EX14.9/14_9.sce
@@ -0,0 +1,8 @@
+clc
+//initialisation of variable
+g=sqrt(3)//ft
+d=5.67//ft
+//CALCULATIONS
+C=g*d//ft
+//RESULTS
+printf('The rate of propagation of a discontinuous surge=% f ft',C)