8 files changed, 103 insertions, 0 deletions
diff --git a/1466/CH5/EX5.1/5_1.sce b/1466/CH5/EX5.1/5_1.sce
new file mode 100755
index 000000000..043ce474e
--- /dev/null
+++ b/1466/CH5/EX5.1/5_1.sce
@@ -0,0 +1,11 @@
+
+
+clc
+//initialisation of variables
+x= 1.105
+y= 0.955
+z= 0.1
+//CALCULATIONS
+n= (x-y)/z
+//RESULTS
+printf (' value of n = %.1f ',n)
diff --git a/1466/CH5/EX5.2/5_2.sce b/1466/CH5/EX5.2/5_2.sce
new file mode 100755
index 000000000..32e526782
--- /dev/null
+++ b/1466/CH5/EX5.2/5_2.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation of variables
+k= 1.667
+L= 0.5 //ft
+g= 32.2 //ft/sec^2
+//CALCULATIONS
+Cd= (k/L)/(sqrt(2*g)*(2/3))
+//RESULTS
+printf (' Coefficiant of discharge = %.3f ',Cd)
diff --git a/1466/CH5/EX5.3/5_3.sce b/1466/CH5/EX5.3/5_3.sce
new file mode 100755
index 000000000..4fe270d4d
--- /dev/null
+++ b/1466/CH5/EX5.3/5_3.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation of variables
+Q= 0.0055 //ft^3/sec
+h= 0.002 //ft
+g= 32.2 //ft/sec^2
+//CALCULATIONS
+Cd= (Q/h)*15/(8*sqrt(2*g))
+//RESULTS
+printf (' Coefficiant of discharge = %.3f ',Cd)
diff --git a/1466/CH5/EX5.5/5_5.sce b/1466/CH5/EX5.5/5_5.sce
new file mode 100755
index 000000000..7f7b0e572
--- /dev/null
+++ b/1466/CH5/EX5.5/5_5.sce
@@ -0,0 +1,14 @@
+clc
+//initialisation of variables
+B= 5 //ft
+H= 0.75 //ft
+k= 0.2/0.45
+Q1= 16.2 //ft^3/sec
+B1= 5 //ft
+H1= 0.51 //ft
+//CALCULATIONS
+A= (Q1+H1*k)/B1
+C= k/A
+Q= A*(B-C*H)*H^1.5
+//RESULTS
+printf (' Discharge flow rate = %.2f ft^3/sec',Q)
diff --git a/1466/CH5/EX5.6/5_6.sce b/1466/CH5/EX5.6/5_6.sce
new file mode 100755
index 000000000..9073ae300
--- /dev/null
+++ b/1466/CH5/EX5.6/5_6.sce
@@ -0,0 +1,13 @@
+
+
+clc
+//initialisation of variables
+H= 0.5 //ft
+h= 6 //m
+l= 4 //m
+g=32.2
+//CLACULATIONS
+m= 0.405+(0.00984/H)
+D= m*sqrt(2*g)*l*H^1.5
+//RESULTS
+printf (' Discharge using bazins formula = %.2f ft^3/sec',D)
diff --git a/1466/CH5/EX5.7/5_7.sce b/1466/CH5/EX5.7/5_7.sce
new file mode 100755
index 000000000..ea6bc18ee
--- /dev/null
+++ b/1466/CH5/EX5.7/5_7.sce
@@ -0,0 +1,16 @@
+
+clc
+//initialisation of variables
+L= 10 //ft
+h= 2 //ft
+w= 20//ft
+d= 3//ft
+n= 2
+g= 32.2 //ft/sec^2
+//CALCULATIONS
+Q= 3.33*(L-0.*h)*h^1.5
+v1= Q/(w*d)
+H1= h+v1^2/(2*g)
+Q= 3.33*(L-0.1*n*H1)*(H1^1.5-(v1^2/(2*g))^1.5)
+//RESULTS
+printf (' Discharge over a weir = %.f ft^3/sec',Q)
diff --git a/1466/CH5/EX5.8/5_8.sce b/1466/CH5/EX5.8/5_8.sce
new file mode 100755
index 000000000..ae9e3a708
--- /dev/null
+++ b/1466/CH5/EX5.8/5_8.sce
@@ -0,0 +1,11 @@
+
+clc
+//initialisation of variables
+l= 12 //ft
+w= 4 //ft
+h1= 1/12 //ft
+h2= 1 //ft
+//CALCULATIONS
+T= (2/(3*60))*(w*l/2.64)*((1/h1^1.5)-(1/h2^1.5))
+//RESULTS
+printf (' time taken = %.1f min',T)
diff --git a/1466/CH5/EX5.9/5_9.sce b/1466/CH5/EX5.9/5_9.sce
new file mode 100755
index 000000000..f7b9faebb
--- /dev/null
+++ b/1466/CH5/EX5.9/5_9.sce
@@ -0,0 +1,20 @@
+
+clc
+//initialisation of variables
+d= 0.62
+g= 32.2 //ft/sec^2
+B=  20 //ft
+H1= 2 //ft
+H2= 0.25 //ft
+w= 5 //ft
+//CALCULATIONS
+Q1= (2*d*sqrt(2*g)*B*(H1-H2)^1.5/3)
+Q2= d*B*H2*sqrt(2*g*(H1-H2))
+Q= Q1+Q2
+v1= Q/(w*B)
+Q1i= (2/3)*d*sqrt(2*g)*B*(((H1-H2)+(v1^2/(2*g)))^1.5-(v1^2/(2*g))^1.5)
+Q2i= d*B*H2*(sqrt(2*g*(H1-H2))+v1)
+Qi= Q1i+Q2i
+V= Qi/(w*B)
+//RESULTS
+printf (' mean velocity ofthe channel = %.2f ft/sec',V)