diff options
Diffstat (limited to '1364/CH11')
| -rwxr-xr-x | 1364/CH11/EX11.10.2/11_10_2.sce | 20 | ||||
| -rwxr-xr-x | 1364/CH11/EX11.10.3/11_10_3.sce | 14 | ||||
| -rwxr-xr-x | 1364/CH11/EX11.11.1/11_11_1.sce | 13 | ||||
| -rwxr-xr-x | 1364/CH11/EX11.11.2/11_11_2.sce | 22 | ||||
| -rwxr-xr-x | 1364/CH11/EX11.13.1/11_13_1.sce | 11 | ||||
| -rwxr-xr-x | 1364/CH11/EX11.14.1/11_14_1.sce | 10 | ||||
| -rwxr-xr-x | 1364/CH11/EX11.14.2/11_14_2.sce | 9 | ||||
| -rwxr-xr-x | 1364/CH11/EX11.14.4/11_14_4.sce | 13 | ||||
| -rwxr-xr-x | 1364/CH11/EX11.2.1/11_2_1.sce | 17 | ||||
| -rwxr-xr-x | 1364/CH11/EX11.3.1/11_3_1.sce | 22 | ||||
| -rwxr-xr-x | 1364/CH11/EX11.4.1/11_14_1.sce | 10 | ||||
| -rwxr-xr-x | 1364/CH11/EX11.8.2/11_8_2.sce | 12 | ||||
| -rwxr-xr-x | 1364/CH11/EX11.8.3/11_8_3.sce | 11 |
13 files changed, 184 insertions, 0 deletions
diff --git a/1364/CH11/EX11.10.2/11_10_2.sce b/1364/CH11/EX11.10.2/11_10_2.sce new file mode 100755 index 000000000..11173c525 --- /dev/null +++ b/1364/CH11/EX11.10.2/11_10_2.sce @@ -0,0 +1,20 @@ +clc
+//initialisation of variables
+g= 32.2 //ft/sec^2
+H= 100//ft
+L= 1000 //ft
+h1= 0.03
+h= 0.05
+h2= 0.4
+d= 6//in
+le= 1021 //ft
+//CALCULATIONS
+u1= sqrt((2*g*H)/(1+h+h2+(h1*L/0.5)))
+Q= %pi*(d/12)^2*u1/4
+u2= sqrt((H*2*g)/(1+h+(1/16)*(1+h+h2+(h1*L/0.5))))
+Q1= %pi*(d/24)^2*u2/4
+r= sqrt((d/12)/(2*h1*le))
+//RESULTS
+printf (' rate of discharge without a nozzle= %.2f ft^3/sec',Q)
+printf (' \n rate of discharge= %.2f ft^3/sec',Q1)
+printf (' \n diameter of nozzle= %.2f in',r)
diff --git a/1364/CH11/EX11.10.3/11_10_3.sce b/1364/CH11/EX11.10.3/11_10_3.sce new file mode 100755 index 000000000..0d5398c8b --- /dev/null +++ b/1364/CH11/EX11.10.3/11_10_3.sce @@ -0,0 +1,14 @@ +clc
+//initialisation of variables
+L= 1730 //ft
+l= 104 //ft
+hl= 234 //ft
+u= 2.3 //ft/sec
+g= 32.2 //ft/sec^2
+//CALCULATIONS
+H2= L-l
+R= u^2/(2*g)
+H1= H2+R+hl
+P= H2*100/H1
+//RESULTS
+printf (' efficiency of tramsmission = %.1f per cent',P)
diff --git a/1364/CH11/EX11.11.1/11_11_1.sce b/1364/CH11/EX11.11.1/11_11_1.sce new file mode 100755 index 000000000..aa417aa3f --- /dev/null +++ b/1364/CH11/EX11.11.1/11_11_1.sce @@ -0,0 +1,13 @@ +clc
+//initialisation of variables
+g= 32.2 //ft/sec^2
+w= 62.3 //lbf/ft^3
+p= 40 //lbf/in^2
+k= 0.44
+d= 2 //in
+//CALCULATIONS
+Q= (%pi*(d/2)^2/144)*sqrt(2*g*p*144/(w*0.981))
+P= w*Q^3*(144/%pi)^2/(2*g*550)
+//RESULTS
+printf ('discharge rate = %.2f ft^3/min',Q)
+printf ('\n Power of jet = %.2f h.p',P)
diff --git a/1364/CH11/EX11.11.2/11_11_2.sce b/1364/CH11/EX11.11.2/11_11_2.sce new file mode 100755 index 000000000..d5ea72b2e --- /dev/null +++ b/1364/CH11/EX11.11.2/11_11_2.sce @@ -0,0 +1,22 @@ +clc
+//initialisation of variables
+u= 80//ft/sec
+d= 1.5 //in
+Cu= 0.97
+f= 0.007
+l= 150//ft
+g= 32.2 //ft/sec^2
+n= 70 //percent
+Ho= -10//ft
+w= 62.3 //lb/ft^3
+//CALCULATIONS
+Q=%pi*d^2*u/(4*144)
+ut= u/Cu
+H2= ut^2/(2*g)
+H1= 5*H2/4
+hf= H1/5
+D= ((4/%pi)^2*4*f*l*Q^2*0.00237/(hf*2*g))^(1/5)*12*(3.95/1.18)
+Ps= w*2*Q*(H1-Ho)*100/(n*550)
+//RESULTS
+printf (' Diameter = %.2f in',D)
+printf (' \n shaft power of the pump = %.1f h.p',Ps)
diff --git a/1364/CH11/EX11.13.1/11_13_1.sce b/1364/CH11/EX11.13.1/11_13_1.sce new file mode 100755 index 000000000..f9d38369e --- /dev/null +++ b/1364/CH11/EX11.13.1/11_13_1.sce @@ -0,0 +1,11 @@ +clc
+//initialisation of variables
+v= 10 //ft/sec
+g= 32 //ft/sec^2
+w= 62.3 //lbf/ft^3
+l= 200 //ft
+t= 0.5 //sec
+//CALCULATIONS
+dp= w*l*v/(g*t*144)
+//RESULTS
+printf (' Rise in pressure = %.1f lbf/in^2',dp)
diff --git a/1364/CH11/EX11.14.1/11_14_1.sce b/1364/CH11/EX11.14.1/11_14_1.sce new file mode 100755 index 000000000..b9f0f0621 --- /dev/null +++ b/1364/CH11/EX11.14.1/11_14_1.sce @@ -0,0 +1,10 @@ +clc
+//initialisation of variables
+w= 62.3 //lb/ft^3
+g= 32.2//ft/se^2
+k= 3*10^5 //lbf/in^2
+u= 10//ft/sec
+//CALCULATIONS
+P= u*sqrt(w*k/g)/12
+//RESULTS
+printf (' Rise in pressure = %.f lbf/in^2',P)
diff --git a/1364/CH11/EX11.14.2/11_14_2.sce b/1364/CH11/EX11.14.2/11_14_2.sce new file mode 100755 index 000000000..c4717a276 --- /dev/null +++ b/1364/CH11/EX11.14.2/11_14_2.sce @@ -0,0 +1,9 @@ +clc
+//initialisation of variables
+g= 32.2 //ft/sec^2
+w= 62.3 //lb/ft^3
+k= 3*10^5 //lbf/in^2
+//CALCULATIONS
+v= sqrt(k*g*144/w)
+//RESULTS
+printf (' velocity of sound in the fluid = %.f ft/sec',v)
diff --git a/1364/CH11/EX11.14.4/11_14_4.sce b/1364/CH11/EX11.14.4/11_14_4.sce new file mode 100755 index 000000000..0dc6602b8 --- /dev/null +++ b/1364/CH11/EX11.14.4/11_14_4.sce @@ -0,0 +1,13 @@ +clc
+//initialisation of variables
+w= 62.3 //lb/ft^3
+d= 6 //in
+t= 5/8 //in
+k= 3*10^5 //lbf/in^2
+E= 18*10^6 //lbf/in^2
+M= 3 //tonf
+//CALCULATIONS
+u= sqrt(((M*2240)^2/w)*(t*2/d)*32.2*114*((t*2/(d*k))+(2/E)))
+Q= (%pi*(d/2)^2/144)*u
+//RESULTS
+printf (' maximum permissible flow = %.2f ft^3/sec',Q)
diff --git a/1364/CH11/EX11.2.1/11_2_1.sce b/1364/CH11/EX11.2.1/11_2_1.sce new file mode 100755 index 000000000..7122824d9 --- /dev/null +++ b/1364/CH11/EX11.2.1/11_2_1.sce @@ -0,0 +1,17 @@ +clc
+//initialisation of variables
+Q= 0.5 //ft^3/sec
+d= 3 //in
+d1= 4 //in
+d2= 2 //in
+h= 12.7 //in
+g= 32.2 //ft/sec^2
+s= 13.6 //kg/m^3
+//CALCULATIONS
+k= (s-1)*(h/2)*2*g*(%pi/(Q*d^2*4))^2+((d1/d)^4-1)
+C= (d1/d2)^2/(sqrt(k)+1)
+//CALCULATIONS
+printf (' cntraction coefficient= %.3f ',C)
+
+
+//ANSWER GIVEN IN THE TEXTBOOK IS WRONG
diff --git a/1364/CH11/EX11.3.1/11_3_1.sce b/1364/CH11/EX11.3.1/11_3_1.sce new file mode 100755 index 000000000..1b734180d --- /dev/null +++ b/1364/CH11/EX11.3.1/11_3_1.sce @@ -0,0 +1,22 @@ +clc
+//initialisation of variables
+Q= 400 //gallons
+d= 4 //in
+d1=6 //in
+C= 0.66
+g= 32.2 //ft/sec^2
+w=62.4//lbf/ft^3
+//CALCULATIONS
+u1= (Q/60)*d1^2/(%pi*6.23)
+u2= (d/d1)^2*u1
+h= (u1-u2)^2/(2*g)
+w=62.4//lbf/ft^3
+p= (((u1^2-u2^2)/(2*g))-h)*w
+h1= ((1/C)-1)^2*(u1^2/(2*g))
+p1= (((u1^2-u2^2)/(2*g))+h1)*w
+p2= (u1^2-u2^2)
+//RESULTS
+printf (' Loss of head due to the sudden enlargement= %.3f ft',h)
+printf (' \n difference in pressure = %.1f lbf/ft^2',p)
+printf (' \n difference in pressure = %.f lbf/ft^2',p1)
+printf (' \n difference in pressure = %.1f lbf/ft^2',p2)
diff --git a/1364/CH11/EX11.4.1/11_14_1.sce b/1364/CH11/EX11.4.1/11_14_1.sce new file mode 100755 index 000000000..b9f0f0621 --- /dev/null +++ b/1364/CH11/EX11.4.1/11_14_1.sce @@ -0,0 +1,10 @@ +clc
+//initialisation of variables
+w= 62.3 //lb/ft^3
+g= 32.2//ft/se^2
+k= 3*10^5 //lbf/in^2
+u= 10//ft/sec
+//CALCULATIONS
+P= u*sqrt(w*k/g)/12
+//RESULTS
+printf (' Rise in pressure = %.f lbf/in^2',P)
diff --git a/1364/CH11/EX11.8.2/11_8_2.sce b/1364/CH11/EX11.8.2/11_8_2.sce new file mode 100755 index 000000000..ec2eaf1d9 --- /dev/null +++ b/1364/CH11/EX11.8.2/11_8_2.sce @@ -0,0 +1,12 @@ +clc
+//initialisation of variables
+l= 9 //ft
+g= 32.2 //ft/sec^2
+Q= 160
+A= 21*%pi
+//CALCULATIONS
+d= 6/(l*2*g*(A/Q)^2-1.5)
+//RESULTS
+printf ('diameter = %.2f ft',d)
+
+//ANSWER GIVEN IN THE TEXTBOOKIS WRONG
diff --git a/1364/CH11/EX11.8.3/11_8_3.sce b/1364/CH11/EX11.8.3/11_8_3.sce new file mode 100755 index 000000000..dc47edd9e --- /dev/null +++ b/1364/CH11/EX11.8.3/11_8_3.sce @@ -0,0 +1,11 @@ +clc
+//initialisation of variables
+a= 2.493
+b= 6.8
+c= -393/(4*2.493)
+d= 0.75 //ft
+//CALCULATIONS
+u2= (-b+sqrt(b^2-4*a*c))/(2*a)
+Q= %pi*d^2*u2/4
+//RESULTS
+printf (' Rate of flow = %.2f ft^3/sec',Q)
|