4 files changed, 82 insertions, 0 deletions
diff --git a/2513/CH15/EX15.1/15_1.sce b/2513/CH15/EX15.1/15_1.sce
new file mode 100755
index 000000000..7b784dae7
--- /dev/null
+++ b/2513/CH15/EX15.1/15_1.sce
@@ -0,0 +1,24 @@
+clc
+//initialisation of variables
+q=0.25//in
+Q=0.34//in
+r=0.76//in
+v=0.83//in
+n=0.78//in
+r1=0.84//in
+v1=0.70//in
+w=2//in
+q1=0.056//in
+d=0.16//in
+v2=0.53//in
+n1=0.80//in
+d1=0.18//in
+n2=0.46//in
+//CALCULATIONS
+V=v*w//fps
+N=v1*w//fps
+V1=v2*w//fps
+V2=n2*w//fps
+//RESULTS
+printf('The one fourth their full flow=% f fps',N)
+printf('The one enghteenth their full flow=% f fps',V2)
diff --git a/2513/CH15/EX15.2/15_2.sce b/2513/CH15/EX15.2/15_2.sce
new file mode 100755
index 000000000..d6e6fb386
--- /dev/null
+++ b/2513/CH15/EX15.2/15_2.sce
@@ -0,0 +1,20 @@
+clc
+//initialisation of variables
+v=2.5//fps
+N=0.015//fps
+a=(40+27)//in
+b=(40*27+27*19)/a
+c=0.440//cfs
+w=49*0.09/100//cfs
+g=0.008//percent
+Q=0.82//cfs
+r=0.795//cfs
+t=2.35*1.16//fps
+d1=113.20-113.03//ft
+d2=12//ft
+//CALCULATIONS
+R=r/Q//cfs
+D=g*r//in
+D2=d1*d2//in
+//RESULTS
+printf('The required capacity and find the slope size and hydraulic characteristics of the system=% f in',D2)
diff --git a/2513/CH15/EX15.3/15_3.sce b/2513/CH15/EX15.3/15_3.sce
new file mode 100755
index 000000000..28a401190
--- /dev/null
+++ b/2513/CH15/EX15.3/15_3.sce
@@ -0,0 +1,18 @@
+clc
+//initialisation of variables
+p=20//min
+N=0.012//in
+k=2.19//min
+l=k+1.97//min
+q=340/(60*3.94)//min
+r=2.56*0.508//min
+del=0.42//min
+j=84.28//min
+w1=0.92//min
+//CALCULATIONS
+r1=r*k//cfs
+w=p+q//min
+G=j-del//min
+S=(G-w1)//min
+//RESULTS
+printf('The required capacity and find the slop size and hydraulic=% f min',S)
diff --git a/2513/CH15/EX15.4/15_4.sce b/2513/CH15/EX15.4/15_4.sce
new file mode 100755
index 000000000..342fd572d
--- /dev/null
+++ b/2513/CH15/EX15.4/15_4.sce
@@ -0,0 +1,20 @@
+clc
+//initialisation of variables
+a=42//in
+d=45//mgd
+d1=0.75//in
+s=60//ft
+p1=9//in
+p2=8.4//in
+p3=9//in
+c1=13*63.6//sq in
+c2=9*55.4//sq in
+c3=9.21//sq ft
+M=d*1.547//cfs
+v=M/c3//fps
+g=0.025*32.2//ft/sec^2
+//CALCULATIONS
+F=v/sqrt(g*(p1/12))//ft
+S=s/d1//in
+//RESULTS
+printf('the port near the end of the diffuser pipe=% f in',F)