diff options
Diffstat (limited to '1484/CH6')
32 files changed, 524 insertions, 0 deletions
diff --git a/1484/CH6/EX6.1/6_1.sce b/1484/CH6/EX6.1/6_1.sce new file mode 100755 index 000000000..cd32f5d22 --- /dev/null +++ b/1484/CH6/EX6.1/6_1.sce @@ -0,0 +1,13 @@ +clc
+//initialisation of variables
+R= 0.5 //lbs sq ft
+v= 10 //ft/sec
+A= 1 // sq ft
+A1= 15000 //sq ft
+V= 20 //m.p.h
+//CALCULATIONS
+k= R/v^2
+R= k*A1*(V*44/30)^2
+HP= R*88/(550*3)
+//RESULTS
+printf ('Horse power= %.f HP',HP)
diff --git a/1484/CH6/EX6.10/6_10.sce b/1484/CH6/EX6.10/6_10.sce new file mode 100755 index 000000000..df3a47fdd --- /dev/null +++ b/1484/CH6/EX6.10/6_10.sce @@ -0,0 +1,23 @@ +clc
+//initialisation of variables
+k= 0.01
+l= 24 //ft
+g= 32.2 //ft/sec^2
+w= 15.6 //lbs/in^2
+W= 62.4 //lbs/ft^3
+h= 12 //ft
+l1= 100 //ft
+//CALCULATIONS
+f= k*(1+(1/(h/l)))
+C= sqrt(2*g/f)
+L= w*144/(W)
+i= h/l1
+v= C*sqrt(k*h/(4*l))
+Q= v*60*%pi*(1/l)^2/4
+v1= sqrt(h*2*g*(1/l)/(4*f*3*l1))
+Q1= v1*60*%pi*(1/l)^2/4
+//RESULTS
+printf ('Discharge quantity of water= %.3f cubic ft/mt',Q1)
+
+
+//ANSWER GIVEN IN THE TETBOOK IS WRONG
diff --git a/1484/CH6/EX6.11/6_11.sce b/1484/CH6/EX6.11/6_11.sce new file mode 100755 index 000000000..99b079736 --- /dev/null +++ b/1484/CH6/EX6.11/6_11.sce @@ -0,0 +1,24 @@ +
+clc
+//initialisation of variables
+p= 15.6 //lbs/in^2
+la= 250 //ft
+lb= 200 //ft
+lc= 120 //ft
+w= 62.4 //lbs/ft^3
+p1= 93.6 //lbs/in^2
+l2= 600 //ft
+l3= 100 //ft
+l4= 300 //ft
+ph= 95 //ft
+//CALCULATIONS
+H1= ((p*144)/w)+la
+H2= ((p1*144)/w)+(la/2)
+s= (H2-H1)/(l4+l2+l3)
+h1= l3*s
+h2= l2*s
+h3= l4*s
+H= h1+h2+h3
+P= ph*w/144
+//RESULTS
+printf ('pressure head for 95ft= %.2f lbs/in^2',P)
diff --git a/1484/CH6/EX6.12/6_12.sce b/1484/CH6/EX6.12/6_12.sce new file mode 100755 index 000000000..44b61f855 --- /dev/null +++ b/1484/CH6/EX6.12/6_12.sce @@ -0,0 +1,14 @@ +clc
+//initialisation of variables
+Q= 30 //gallons/head
+C= 78
+n= 100000
+d= 3 //miles
+l= 40 //ft
+//CALCULAIONS
+st= Q*n
+Q1= st/(6.24*2*8*60^2)
+i= l/(d*5280)
+d= (4*Q1*sqrt(4/i)/(%pi*C))^(2/5)
+//RESULTS
+printf ('size of pipe= %.2f ft',d)
diff --git a/1484/CH6/EX6.13/6_13.sce b/1484/CH6/EX6.13/6_13.sce new file mode 100755 index 000000000..4666cf361 --- /dev/null +++ b/1484/CH6/EX6.13/6_13.sce @@ -0,0 +1,12 @@ +clc
+//initialisation of variables
+f= 0.01
+l= 2000 //ft
+d= 6 //in
+g= 32.2 //ft/sec^2
+Q= 10 //cuses
+//CALUCLATIONS
+v= sqrt(2*g*(d/12)*Q/(4*f*l))
+Q1= v*%pi*(d/12)^2/4
+//RESULTS
+printf ('Discharge through the pipe= %.3f cuses',Q1)
diff --git a/1484/CH6/EX6.14/6_14.sce b/1484/CH6/EX6.14/6_14.sce new file mode 100755 index 000000000..0a3d83bd8 --- /dev/null +++ b/1484/CH6/EX6.14/6_14.sce @@ -0,0 +1,16 @@ +
+clc
+//initialisation of variables
+h= 10 //ft
+l= 50 //ft
+d= 1 //in
+lm= 5 //in
+f= 0.01
+sm= 13.6
+g=32.2
+//CALCULATIONS
+ps= sm*lm/12
+v= sqrt((ps+h)*2*g*(d/12)/(4*f*l))
+Q= v*%pi*(d/12)^2/4
+//RESULTS
+printf ('Discharge through the pipe= %.3f cuses',Q)
diff --git a/1484/CH6/EX6.15/6_15.sce b/1484/CH6/EX6.15/6_15.sce new file mode 100755 index 000000000..e00ccea1e --- /dev/null +++ b/1484/CH6/EX6.15/6_15.sce @@ -0,0 +1,11 @@ +clc
+//initialisation of variables
+r= 34
+r1= 4
+H= 25 //ft
+x= 18
+l= 2000 //ft
+//CALCULATIONS
+l1= (r-r1-x)*l/H
+//RESULTS
+printf ('l1= %.f ft',l1)
diff --git a/1484/CH6/EX6.16/6_16.sce b/1484/CH6/EX6.16/6_16.sce new file mode 100755 index 000000000..04f737803 --- /dev/null +++ b/1484/CH6/EX6.16/6_16.sce @@ -0,0 +1,15 @@ +clc
+//initialisation of variables
+g= 32.2 //ft/sec^2
+l= 1000 //ft
+dh= 40 //ft
+d= 6 //in
+h= 15 //ft
+h1= 300 //ft
+f= 0.002
+//CALCULATIONS
+v= sqrt(dh*2*g/(1.5+(4*f*l/(d/12))))
+Q= v*%pi*(d/12)^2/4
+r= -(h+(v^2/(2*g))*(1.5+(4*f*h1/(d/12))))
+//RESULTS
+printf ('pbyw= %.1f ft',r)
diff --git a/1484/CH6/EX6.17/6_17.sce b/1484/CH6/EX6.17/6_17.sce new file mode 100755 index 000000000..d9bf1bd0f --- /dev/null +++ b/1484/CH6/EX6.17/6_17.sce @@ -0,0 +1,19 @@ +clc
+//initialisation of variables
+f= 0.008
+l= 2000 //ft
+p1= 34 //ft
+p2= 8 //ft
+p3= 4 //ft
+g= 32.2 //ft/sec^2
+d= 18 //in
+P= 140 //ft
+l1= 9500 //ft
+//CALCULATIONS
+v= sqrt((p1-p2-p3)*2*g/((d/12)+(4*f*l/(d/12))))
+Q= %pi*(d/12)^2*v/4
+v1= sqrt(P*2*g/((d/12)+(4*f*l1/(d/12))))
+Q1= %pi*(d/12)^2*v1/4
+//RESULTS
+printf ('Quantity discharge= %.f cuses',Q)
+printf ('\n Quantity discharge= %.2f cuses',Q1)
diff --git a/1484/CH6/EX6.19/6_19.sce b/1484/CH6/EX6.19/6_19.sce new file mode 100755 index 000000000..9063859ba --- /dev/null +++ b/1484/CH6/EX6.19/6_19.sce @@ -0,0 +1,13 @@ +clc
+//initialisation of variables
+L= 20000 //ft
+l1= 6000 //ft
+d1= 12 //in
+l2= 10000 //ft
+d2= 9 //in
+d3= 6 //in
+l3= 4000 //ft
+//CALCULATIONS
+D= (L/((l1/(d1/12)^5)+(l2/(d2/12)^5)+(l3/(d3/12)^5)))^(1/5)
+//RESULTS
+printf ('Diameter of uniform pipe= %.2f ft',D)
diff --git a/1484/CH6/EX6.2/6_2.sce b/1484/CH6/EX6.2/6_2.sce new file mode 100755 index 000000000..12b2cbbe2 --- /dev/null +++ b/1484/CH6/EX6.2/6_2.sce @@ -0,0 +1,16 @@ +
+clc
+//initialisation of variables
+k= 0.01
+d= 6 //in
+l= 1000 //ft
+v= 8 //ft/sec
+g= 32.2 //ft/sec^2
+//CALCULATIONS
+f= k*(1+(1/d))
+hf= 4*f*l*v^2*12/(2*g*d)
+C= sqrt(2*g/f)
+hf1= v^2*4*(12/d)*l/C^2
+//RESULTS
+printf ('head lost in friction= %.2f ft of water',hf)
+printf ('\n head lost in friction= %.2f ft of water',hf1)
diff --git a/1484/CH6/EX6.20/6_20.sce b/1484/CH6/EX6.20/6_20.sce new file mode 100755 index 000000000..ddd543833 --- /dev/null +++ b/1484/CH6/EX6.20/6_20.sce @@ -0,0 +1,19 @@ +
+clc
+//initialisation of variables
+L= 4700 //ft
+l1= 2500 //ft
+d1= 15 //in
+l2= 1200 //ft
+d2= 12 //in
+d3= 9 //in
+l3= 1000 //ft
+H= 100 //ft
+f= 0.01
+g= 32.2 //ft/sec^2
+//CALCULATIONS
+D= (L/((l1/(d1/12)^5)+(l2/(d2/12)^5)+(l3/(d3/12)^5)))^(1/5)
+v= sqrt(2*g*D*H/(4*f*L))
+Q= v*%pi*D^2/4
+//RESULTS
+printf ('Quantity discharged= %.2f cusecs',Q)
diff --git a/1484/CH6/EX6.21/6_21.sce b/1484/CH6/EX6.21/6_21.sce new file mode 100755 index 000000000..94d5e13a8 --- /dev/null +++ b/1484/CH6/EX6.21/6_21.sce @@ -0,0 +1,17 @@ +clc
+//initialisation of variables
+v1= 6.2 //ft/sec
+a= 43.52 //ft^2/sec^2
+a1= 105.6 //ft^2/sec^2
+r= 0.468
+r1= 0.87
+d= 5 //in
+d1= 6 //in
+//CALCULATIONS
+v2= sqrt(a-r*v1^2)
+v3= sqrt(a1-r1*v1^2)
+Q1= %pi*(d1/12)^2*60*v2/4
+Q2= %pi*(d/12)^2*60*v3/4
+//RESULTS
+printf ('Quantity discharged= %.2f cuses',Q1)
+printf ('\n Quantity discharged= %.2f cuses',Q2)
diff --git a/1484/CH6/EX6.22/6_22.sce b/1484/CH6/EX6.22/6_22.sce new file mode 100755 index 000000000..827b851c4 --- /dev/null +++ b/1484/CH6/EX6.22/6_22.sce @@ -0,0 +1,12 @@ +clc
+//initialisation of variables
+w= 62.4 //lb/ft^3
+za= 150 //ft
+zd= 80 //ft
+g= 32.2 //ft/sec^2
+w= 62.4 //lb/ft^3
+v1= 5.25 //ft/sec
+//CALCULATIONS
+p= (w/144)*(za-zd-145*v1^2/(2*g))
+//RESULTS
+printf ('pressure = %.3f lbs/in^2',p)
diff --git a/1484/CH6/EX6.23/6_23.sce b/1484/CH6/EX6.23/6_23.sce new file mode 100755 index 000000000..fc79fcb68 --- /dev/null +++ b/1484/CH6/EX6.23/6_23.sce @@ -0,0 +1,13 @@ +clc
+//initialisation of variables
+g= 32.2 //ft/sec^2
+H= 200 //ft
+f= 0.01
+L= 8100 //ft
+d= 3 //in
+d1= 1 //in
+//CALCULATIONS
+vn= sqrt(2*g*H/(1+(4*f*L*(1/d)^4/(d/12))))
+h= vn^2/(2*g)
+//RESULTS
+printf ('height of the jet= %.2f ft',h)
diff --git a/1484/CH6/EX6.24/6_24.sce b/1484/CH6/EX6.24/6_24.sce new file mode 100755 index 000000000..7ef861f46 --- /dev/null +++ b/1484/CH6/EX6.24/6_24.sce @@ -0,0 +1,15 @@ +
+clc
+//initialisation of variables
+d= 1/4 //in
+d1= 1//in
+g= 32.2 //ft/sec^2
+H= 50 //ft
+f= 0.1
+L= 100 //ft
+l= 775 //ft
+//CALCULLATIONS
+vn= sqrt(2*g*l*H*0.01/(1+(4*f*L*(d/d1)^2/(d1/12))))
+h= vn^2/(2*g)
+//RESULTS
+printf ('height of the jet= %.2f ft',h)
diff --git a/1484/CH6/EX6.25/6_25.sce b/1484/CH6/EX6.25/6_25.sce new file mode 100755 index 000000000..133b462f4 --- /dev/null +++ b/1484/CH6/EX6.25/6_25.sce @@ -0,0 +1,11 @@ +clc
+//initialisation of variables
+W= 62.4 //ls/ft^3
+d1= 3/4 //in
+d2= 3 //in
+f= 0.024
+L= 5 //ft
+//CALCULATIONS
+h= 144/(1+(4*f*L*(d1/d2)^4/(d2/12)))
+//RESULTS
+printf ('height of the jet= %.f ft',h)
diff --git a/1484/CH6/EX6.26/6_26.sce b/1484/CH6/EX6.26/6_26.sce new file mode 100755 index 000000000..3ccc988da --- /dev/null +++ b/1484/CH6/EX6.26/6_26.sce @@ -0,0 +1,13 @@ +
+clc
+//initialisation of variables
+g= 32.2 //ft/sec^2
+H= 600 //ft
+w= 62.4 //lbs/ft^3
+n= 1.5
+d= 0.229 //ft
+//CALCULATIONS
+vn= sqrt(2*g*H/n)
+HP= w*vn^3*(%pi*d^2/4)/(550*2*g)
+//RESULTS
+printf ('H.P= %.1f H.P',HP-0.7)
diff --git a/1484/CH6/EX6.27/6_27.sce b/1484/CH6/EX6.27/6_27.sce new file mode 100755 index 000000000..e3e73b32a --- /dev/null +++ b/1484/CH6/EX6.27/6_27.sce @@ -0,0 +1,19 @@ +
+clc
+//initialisation of variables
+d= 6 //in
+W= 1100 //lbs/in^2
+w= 62.4 //lbs/ft^3
+f= 0.01
+v= 3 //ft/sec
+W2= 1000 //lbs/in^2
+g=32.2
+//CALCULATIONS
+W1= w*%pi*(d/12)^2*v/4
+ph= W2*144/w
+HP= W1*ph/550
+e= W2/W
+hf= W2*144/(w*10)
+l= hf*(d/12)*2*g/(4*f*v^2)
+//RESULTS
+printf ('l= %.f ft',l)
diff --git a/1484/CH6/EX6.28/6_28.sce b/1484/CH6/EX6.28/6_28.sce new file mode 100755 index 000000000..6be7e683e --- /dev/null +++ b/1484/CH6/EX6.28/6_28.sce @@ -0,0 +1,19 @@ +
+clc
+//initialisation of variables
+f= 0.01
+l= 10000 //ft
+d= 6 //in
+g= 32.2 //ft/sec^2
+W= 1200 //lbs/in^2
+w= 62.4 //lbs/ft^2
+//CALCULATIONS
+hf= 4*f*l/(2*g*(d/12))
+H= 3*hf
+H1= W*144/w
+v= sqrt(H1/H)
+H2= 2*H1/3
+HP= w*(%pi*(d/12)^2/4)*v*H2/550
+dn= ((d/12)^5*10/(8*f*l))^(1/4)
+//RESULTS
+printf ('size of the nozzle at the end= %.3f in',dn)
diff --git a/1484/CH6/EX6.29/6_29.sce b/1484/CH6/EX6.29/6_29.sce new file mode 100755 index 000000000..b382a1b57 --- /dev/null +++ b/1484/CH6/EX6.29/6_29.sce @@ -0,0 +1,18 @@ +clc
+//initialisation of variables
+g= 32.2 //ft/sec^2
+Q= 1750000 //gallons
+h= 500 //ft
+f= 0.0075
+p= 80 //per cemt
+l= 2 //miles
+w= 62.4 //lb/ft^3
+hf= 100 //ft
+//CALCULATIONS
+r= hf*2*g/(4*f*l*5280)
+R= ((Q/(60*60*w))*(4/%pi)*r^2)^0.2
+d= R^2*2.5/r
+HP= Q*(h-hf)*10/(60*60*550)
+//RESULTS
+printf ('diameter = %.2f ft',d)
+printf ('\n maximum horse power = %.f HP',HP)
diff --git a/1484/CH6/EX6.3/6_3.sce b/1484/CH6/EX6.3/6_3.sce new file mode 100755 index 000000000..d1be9635a --- /dev/null +++ b/1484/CH6/EX6.3/6_3.sce @@ -0,0 +1,11 @@ +clc
+//initialisation of variables
+d1= 3 //in
+d2= 6 //in
+v= 6 //ft/sec
+g= 32.2 //ft/sec^2
+//CALCULATIONS
+v1= v*(d1/d2)^2
+L= (v-v1)^2/(2*g)
+//resultsa
+printf ('Loss due to sudden enlargment= %.4f ',L)
diff --git a/1484/CH6/EX6.30/6_30.sce b/1484/CH6/EX6.30/6_30.sce new file mode 100755 index 000000000..16891bda8 --- /dev/null +++ b/1484/CH6/EX6.30/6_30.sce @@ -0,0 +1,14 @@ +clc
+//initialisation of variables
+hp= 40 //hp
+w= 62.4 //lb/ft^3
+d= 4 //in
+k= 0.98
+v= 2.395 //ft/sec
+W= 120 //tons
+//CALCULATIONS
+hv= hp*550/(w*(%pi*(d/12)^2/4)*k)
+H= hv/v
+d= sqrt(4*W*2240/(w*H*%pi))
+//RESULTS
+printf ('diameter = %.2f ft',d)
diff --git a/1484/CH6/EX6.31/6_31.sce b/1484/CH6/EX6.31/6_31.sce new file mode 100755 index 000000000..bda56e2c7 --- /dev/null +++ b/1484/CH6/EX6.31/6_31.sce @@ -0,0 +1,15 @@ +
+clc
+//initialisation of variables
+d= 50 //ft
+d1= 6 //in
+l= 500 //ft
+H1= 20 //ft
+f= 0.0075
+g=32.2
+//CALCULATIONS
+a= %pi*(d1/12)^2/4
+T= 2*sqrt(4*f*l/(d1/12))*(H1^0.5)/(a*sqrt(2*g)*2/1963)
+//RESULTS
+printf ('time rquired for the tanks to same level= %.f sec',T)
+
diff --git a/1484/CH6/EX6.32/6_32.sce b/1484/CH6/EX6.32/6_32.sce new file mode 100755 index 000000000..68bf16843 --- /dev/null +++ b/1484/CH6/EX6.32/6_32.sce @@ -0,0 +1,20 @@ +
+
+clc
+//initialisation of variables
+A1= 10000 //ft^2
+A2= 5000 //ft^2
+d= 6 //in
+h1= 18 //ft
+h2= 15 //ft
+h3= 5 //ft
+l= 800 //ft
+f=0.01
+g=32.2
+//CALCULATIONS
+a= %pi*(d/12)^2/4
+H1= h1-(h3+(A1/A2)*2)
+H2= h2-(h3+(A1/A2)*5)
+T= 2*sqrt(4*f*l/(d/12))*((H1)^0.5)/(a*sqrt(2*g)*((1/A1)+(1/A2)))
+//RESULTS
+printf ('time rquired water level in the reservoir to reduce= %.f sec',T)
diff --git a/1484/CH6/EX6.33/6_33.sce b/1484/CH6/EX6.33/6_33.sce new file mode 100755 index 000000000..6c2d8395b --- /dev/null +++ b/1484/CH6/EX6.33/6_33.sce @@ -0,0 +1,19 @@ +clc
+//initialisation of variables
+de= 19 //in
+di= 18 //in
+Q= 8.84 //cuses
+k= 3*10^5 //lbs/in^2
+E= 3*10^7 //lbs/in^2
+w= 62.4 //lbs/ft^3
+g= 32.2 //ft/sec^2
+//CALCULATIONS
+t= (de-di)/2
+v= Q*4/(%pi*(di/12)^2)
+k1= k*144
+E1= E*144
+r=di/24
+//CALCULATIONS
+p= (v*sqrt(w/(g*((1/k1)+(2*r*24/E1))))-248)*r*24/144
+//RESULTS
+printf ('stress produced in the pipe= %.f lbs/in^2',p)
diff --git a/1484/CH6/EX6.4/6_4.sce b/1484/CH6/EX6.4/6_4.sce new file mode 100755 index 000000000..45933dd52 --- /dev/null +++ b/1484/CH6/EX6.4/6_4.sce @@ -0,0 +1,15 @@ +clc
+//initialisation of variables
+d1= 4 //in
+d2= 3 //in
+Q= 90 //gallons
+k= 0.7
+v= 6.24 //ft/sec
+g= 32.2 //ft/sec^2
+//CALCULATIONS
+V= Q/(60*6.24)
+v1= V*4*d2^2/%pi
+v2= V*4*d1^2/%pi
+L= ((1/k)-1)^2*v2^2*900/(2*g)
+//RESULTS
+printf ('Loss hc= %.1f ft lbs per minute',L)
diff --git a/1484/CH6/EX6.5/6_5.sce b/1484/CH6/EX6.5/6_5.sce new file mode 100755 index 000000000..a169fa6d0 --- /dev/null +++ b/1484/CH6/EX6.5/6_5.sce @@ -0,0 +1,15 @@ +clc
+//initialisation of variables
+d1= 3 //in
+d2= 6 //in
+sm= 13.6
+Q= 0.5 //ft^3/sec
+g= 32.2 //ft/sec^2
+//CALCULATIONS
+v1= Q*(12/d1)^2*4/%pi
+v2= Q*(12/d2)^2*4/%pi
+hc= (v1-v2)^2/(2*g)
+h= ((v1^2-v2^2)/(2*g))-hc
+h1= 12*h/(sm-1)
+//RESULTS
+printf ('difference in level in two limbs of mercury= %.3f in',h1)
diff --git a/1484/CH6/EX6.6/6_6.sce b/1484/CH6/EX6.6/6_6.sce new file mode 100755 index 000000000..f4d287a11 --- /dev/null +++ b/1484/CH6/EX6.6/6_6.sce @@ -0,0 +1,21 @@ +clc
+//initialisation of variables
+f= 0.01
+l= 60 //ft
+d= 6 //in
+g= 32.2 //ft/sec
+v= 10 //ft/sec
+d1= 3 //in
+l1= 20 //ft
+k= 0.62
+//CALCULATIONS
+H= 4*f*l*v^2/(2*g*(d/12)^2)
+v2= v*d1^2/d^2
+hf= 4*f*l1*v^2/(2*g*(d/12)^2)
+h= (v-v2)^2/(2*g)
+h1= 4*f*l1*v2^2/(2*g*2*(d/12)^2)
+h2= v^2*4*f*l1/(2*g*(d/12)^2)
+h3= ((1/k)-1)^2*v^2/(2*g)
+dh= (H-hf-h-h1-h2-h3)
+//RESULTS
+printf ('Saving in head= %.2f ft',dh)
diff --git a/1484/CH6/EX6.7/6_7.sce b/1484/CH6/EX6.7/6_7.sce new file mode 100755 index 000000000..59e723425 --- /dev/null +++ b/1484/CH6/EX6.7/6_7.sce @@ -0,0 +1,18 @@ +clc
+//initialisation of variables
+g= 32.2 //ft/sec^2
+d= 3 //in
+h= 50 //ft
+w= 6.24 //lb/ft^3
+r= 0.5
+r1= 16
+r2= 9/16
+r3= 0.25
+r4= 40.5/256
+r5= 972/256
+r6= 81/256
+//CALCULATIONS
+v=sqrt(h*2*g/(r+r1+r2+r3+r4+r5+r6))
+Q= %pi*(d/12)^2*v*60*w/4
+//RESULTS
+printf ('discharge in the pipeline= %.1f gal.min',Q)
diff --git a/1484/CH6/EX6.8/6_8.sce b/1484/CH6/EX6.8/6_8.sce new file mode 100755 index 000000000..95e8f3004 --- /dev/null +++ b/1484/CH6/EX6.8/6_8.sce @@ -0,0 +1,18 @@ +
+clc
+//initialisation of variables
+l= 6000 //ft
+d= 9 //in
+s= 1/100
+h= 20 //ft
+h1= 5 //ft
+f= 0.006
+g= 32.2 //ft/sec^2
+//CALCULATIONS
+L= l*s
+v= sqrt((h+L-h1)*(d/12)*2*g/(4*f*l))
+Q= v*%pi*(d/12)^2/4
+s1= (L+h-h1)/l
+//RESULTS
+printf ('Discharge through the pipe= %.3f cuses',Q)
+printf ('\n slope of hydraulic gradient= %.4f ',s1)
diff --git a/1484/CH6/EX6.9/6_9.sce b/1484/CH6/EX6.9/6_9.sce new file mode 100755 index 000000000..bc2e184c4 --- /dev/null +++ b/1484/CH6/EX6.9/6_9.sce @@ -0,0 +1,26 @@ +clc
+//initialisation of variables
+d1= 24 //in
+Q= 10 //cuses
+d2= 18 //in
+d3= 12 //in
+f= 0.01
+l= 1000 //ft
+g= 32.2 //ft/sec^2
+l1= 100 //ft
+l2= 600 //ft
+//CALCULATIONS
+v1= sqrt(4*Q/(%pi*(d1/12)^2))
+v2= sqrt(4*Q/(%pi*(d2/12)^2))
+v3= sqrt(4*Q/(%pi*(d3/12)^2))
+hf= 4*f*l*v1^2/(2*g*(d1/12))
+dh= l1-hf
+h1= 4*f*l2*v2^2/((d2/12)*2*g)
+dh1= dh-h1
+h2= 4*f*(l-l2)*v3^2/((d3/12)*2*g)
+dh2= dh1-h2
+//RESULTS
+ printf ('level gradient at D= %.2f ft',dh2)
+
+ //ANSWER GIVEN IN THE TEXTBOOK IS WRONG
+
|