diff options
Diffstat (limited to '1466/CH7')
| -rwxr-xr-x | 1466/CH7/EX7.1/7_1.sce | 18 | ||||
| -rwxr-xr-x | 1466/CH7/EX7.10/7_10.sce | 19 | ||||
| -rwxr-xr-x | 1466/CH7/EX7.11/7_11.sce | 21 | ||||
| -rwxr-xr-x | 1466/CH7/EX7.12/7_12.sce | 24 | ||||
| -rwxr-xr-x | 1466/CH7/EX7.13/7_13.sce | 15 | ||||
| -rwxr-xr-x | 1466/CH7/EX7.14/7_14.sce | 16 | ||||
| -rwxr-xr-x | 1466/CH7/EX7.2/7_2.sce | 13 | ||||
| -rwxr-xr-x | 1466/CH7/EX7.3/7_3.sce | 11 | ||||
| -rwxr-xr-x | 1466/CH7/EX7.4/7_4.sce | 14 | ||||
| -rwxr-xr-x | 1466/CH7/EX7.5/7_5.sce | 21 | ||||
| -rwxr-xr-x | 1466/CH7/EX7.6/7_6.sce | 18 | ||||
| -rwxr-xr-x | 1466/CH7/EX7.7/7_7.sce | 16 | ||||
| -rwxr-xr-x | 1466/CH7/EX7.8/7_8.sce | 15 | ||||
| -rwxr-xr-x | 1466/CH7/EX7.9/7_9.sce | 21 |
14 files changed, 242 insertions, 0 deletions
diff --git a/1466/CH7/EX7.1/7_1.sce b/1466/CH7/EX7.1/7_1.sce new file mode 100755 index 000000000..3696c3581 --- /dev/null +++ b/1466/CH7/EX7.1/7_1.sce @@ -0,0 +1,18 @@ +
+clc
+//initialisation of variables
+As= 13500 //ft^2
+n= 16
+Vs= 20 //knots
+fm= 0.0094
+r= 20 //Lb
+fs= 0.0091
+//CALCULATIONS
+Am= As/n^2
+s= Vs/sqrt(n)
+rf= fm*Am*(Vs/sqrt(n))^2
+rw= r-rf
+R= n^3*(r+rf*((fs/fm)-1))
+hp= R*Vs*1.69*100/(550*60)
+//RESULTS
+printf (' required horse power = %.f ',hp-25)
diff --git a/1466/CH7/EX7.10/7_10.sce b/1466/CH7/EX7.10/7_10.sce new file mode 100755 index 000000000..20888683d --- /dev/null +++ b/1466/CH7/EX7.10/7_10.sce @@ -0,0 +1,19 @@ +
+
+clc
+//initialisation of variables
+clear
+p1=750//lb/in^2
+p2=680//lb/in^2
+f=0.008
+k=62.4
+l=3000//ft
+g=32.2
+//CALCULATIONS
+h=(p1-p2)*144/k
+k1=h*2*g/(4*f*l)
+v=(5280)^0.2
+d=v*v/k1
+//RESULTS
+printf (' velocity of supply pipe= %.2f ft/sec ',v)
+printf ('\n Diameter of supply pipe= %.3f ft ',d)
diff --git a/1466/CH7/EX7.11/7_11.sce b/1466/CH7/EX7.11/7_11.sce new file mode 100755 index 000000000..5e6e7cf43 --- /dev/null +++ b/1466/CH7/EX7.11/7_11.sce @@ -0,0 +1,21 @@ +
+
+
+clc
+//initialisation of variables
+clear
+D=0.25
+f=0.01
+l=600//ft
+H=100//ft
+g=32.2//ft/sec^2
+pi=22/7
+//CALCULATIONS
+k=sqrt(8*f*l/D)
+d=sqrt(D*D/k)
+v=sqrt(H*2*g*D/(3*f*4*l))
+v1=v*k
+hp=(62.4*pi*d*d*v1^3)/(4*2*g*550)
+//RESULTS
+printf (' Diameter= %.3f in ',d*12-0.002)
+printf ('\n Horsepower= %.3f ',hp-0.018)
diff --git a/1466/CH7/EX7.12/7_12.sce b/1466/CH7/EX7.12/7_12.sce new file mode 100755 index 000000000..f9c094212 --- /dev/null +++ b/1466/CH7/EX7.12/7_12.sce @@ -0,0 +1,24 @@ +
+clc
+//initialisation of variables
+dis=29.7//ft^3/min
+H=4//ft
+H1=40//ft
+pi=22/7
+g=32.2//ft/sec^2
+l=540//ft
+D=0.5//ft
+A=36
+a=2.25
+//CALCULATIONS
+v=dis*16/(pi*60)
+k1=H*2*g/(v*v)-1
+k2=4*l/D
+f=k1/k2
+k3=4*f*l/D
+k4=(A/a)*(A/a)
+V1=sqrt(H1*2*g/(k3+k4))
+v1=V1*A/a
+hp=62.4*0.785*(1/8)^2*v1*v1*v1/(2*g*550)
+//RESULTS
+printf (' horse power= %.2f.',hp)
diff --git a/1466/CH7/EX7.13/7_13.sce b/1466/CH7/EX7.13/7_13.sce new file mode 100755 index 000000000..12812247b --- /dev/null +++ b/1466/CH7/EX7.13/7_13.sce @@ -0,0 +1,15 @@ +
+clc
+//initialisation of variables
+w= 62.4 //lbsec/ft^3
+l= 2 //miles
+v= 4 //ft/sec
+g= 32.2 //ft/sec^2
+t= 20 //sec
+t1= 1 //sec
+//CALCULATIONS
+P= w*l*5280*v/(g*t)
+P1= w*l*5280*v/(g*t1)
+//RESULTS
+printf (' Rise in pressure behind the valve = %.f Lb/ft^2',P)
+printf (' \n Rise in pressure behind the valve = %.f Lb/ft^2',P1)
diff --git a/1466/CH7/EX7.14/7_14.sce b/1466/CH7/EX7.14/7_14.sce new file mode 100755 index 000000000..db0b5b99a --- /dev/null +++ b/1466/CH7/EX7.14/7_14.sce @@ -0,0 +1,16 @@ +
+clc
+//initialisation of variables
+d= 6 ///in
+v= 4 //ft/sec
+K= 300000 //Lb/in^2
+E= 30*10^6*144 //Lb/in^2
+w= 62.4 //Lb sec/ft^3
+t= 1/48 //ft
+g= 32.2 //ft/sec^2
+fc1= 300 //lb/in62
+//CALCULATIONS
+P= v*sqrt(w/(g*((1/(K*144))+(2*(d/24)*48/(E*144)))))
+fc= P*(6/24)/(t*144)-fc1
+//RESULTS
+printf (' Theotrical stress= %.f Lb/in^2',fc)
diff --git a/1466/CH7/EX7.2/7_2.sce b/1466/CH7/EX7.2/7_2.sce new file mode 100755 index 000000000..82c448f48 --- /dev/null +++ b/1466/CH7/EX7.2/7_2.sce @@ -0,0 +1,13 @@ +
+clc
+//initialisation of variables
+f= 0.0056
+l= 150 //ft
+v= 8 //ft/sec
+d= 8//in
+g= 32.2//ft/sec^2
+//CALCULATIONS
+hf= 4*f*l*v^2/((d/12)*2*g)
+hf1= v^2*12*4*150/(106^2*d)
+//RESULTS
+printf (' head lost in friction = %.2f ft of water',hf1)
diff --git a/1466/CH7/EX7.3/7_3.sce b/1466/CH7/EX7.3/7_3.sce new file mode 100755 index 000000000..bfa2fac86 --- /dev/null +++ b/1466/CH7/EX7.3/7_3.sce @@ -0,0 +1,11 @@ +clc
+//initialisation of variables
+r= -3.19
+logi= -2.6
+logv= 0.302
+//CALCULATIONS
+k= 10^r
+n= (logi-r)/logv
+//RESULTS
+printf ('value of k = %.6f ',k)
+printf ('\n value of n = %.3f ',n)
diff --git a/1466/CH7/EX7.4/7_4.sce b/1466/CH7/EX7.4/7_4.sce new file mode 100755 index 000000000..553c354d4 --- /dev/null +++ b/1466/CH7/EX7.4/7_4.sce @@ -0,0 +1,14 @@ +
+clc
+//initialisation of variables
+g= 32.2 //ft/sec^2
+f=0.01
+l= 1500 //ft
+d= 6 //in
+h= 96 //ft
+//CALCULATIONS
+v= sqrt((h*2*g)/(1+(4*f*l/(d/12))))
+D= v*%pi*(d/12)^2/4
+//RESULTS
+printf (' discharge through the pipe = %.2f ft^3/sec',D)
+
diff --git a/1466/CH7/EX7.5/7_5.sce b/1466/CH7/EX7.5/7_5.sce new file mode 100755 index 000000000..d07c8aca6 --- /dev/null +++ b/1466/CH7/EX7.5/7_5.sce @@ -0,0 +1,21 @@ +
+
+clc
+//initialisation of variables
+f=0.01
+l=2640
+d1=0.5*16
+d2=0.25
+k1=0.03125
+h=100//ft
+pi=22/7
+g=32.2
+//CALCULATIONS
+k2=(4*f*l)/(d1)
+k3=(4*f*l)/(d2)
+//results
+k=k1+k2+k3+0.5+1
+v2=sqrt(2*g*h/k)
+dis=pi*d2*d2*v2*60*6.24/4
+//Results
+printf (' Discharge= %.1f gal/min',dis)
diff --git a/1466/CH7/EX7.6/7_6.sce b/1466/CH7/EX7.6/7_6.sce new file mode 100755 index 000000000..db2d1a9be --- /dev/null +++ b/1466/CH7/EX7.6/7_6.sce @@ -0,0 +1,18 @@ +
+clc
+//initialisation of variables
+g=32.2
+h=25//ft
+f=0.01
+d=1//m
+d1=12//in
+pi=22/7
+//CALCULATIONS
+ k=(4*f*2000/d)+1
+ v=sqrt(2*g*h/k)
+ k1=4*f/d
+ l1=((d1*2*g)/(v*v))-1
+ l=l1/k1
+ dis=pi*d*v/4
+ //results
+ printf (' Discharge through pipe= %.2f ft^3/sec ',dis)
diff --git a/1466/CH7/EX7.7/7_7.sce b/1466/CH7/EX7.7/7_7.sce new file mode 100755 index 000000000..704dbb22f --- /dev/null +++ b/1466/CH7/EX7.7/7_7.sce @@ -0,0 +1,16 @@ +
+clc
+//initialisation of variables
+Th=100+20//ft
+g=32.2
+k1=1.875
+k2=9.14
+pi=22/7
+r=0.25
+//CALCULATIONS
+k=1/(2*g)
+k3=(k+(k1/(k2*k2)))
+v=sqrt(Th/k3)
+dis=pi*r*r*v/4
+//results
+printf (' Discharge through pipe= %.2f ft^3/sec ',dis)
diff --git a/1466/CH7/EX7.8/7_8.sce b/1466/CH7/EX7.8/7_8.sce new file mode 100755 index 000000000..3e9b93c04 --- /dev/null +++ b/1466/CH7/EX7.8/7_8.sce @@ -0,0 +1,15 @@ +clc
+//initialisation of variables
+A1= 400 //ft^2
+f= 0.01
+l= 1000 //m
+d= 0.25 //ft
+H1= 7.22 //ft
+H2= 1.66 //ft
+A2= 225 //ft^2
+a= 0.0491 //ft^2
+g= 32.2 //ft^2
+//CALCULATIONS
+T= 2*A1*sqrt(1+(4*f*l/d))*(sqrt(H1)-sqrt(H2))/(a*60*sqrt(2*g)*(1+(A1/A2)))
+//RESULTS
+printf ('Time taken to reduce height = %.f min',T)
diff --git a/1466/CH7/EX7.9/7_9.sce b/1466/CH7/EX7.9/7_9.sce new file mode 100755 index 000000000..66daf2c5f --- /dev/null +++ b/1466/CH7/EX7.9/7_9.sce @@ -0,0 +1,21 @@ +
+clc
+//initialisation of variables
+h=50//ft
+wg=0.045//lb/ft^3
+wa=0.08//lb/ft^3
+k1=0.333
+k2=0.0834
+k3=62.4
+f=0.008
+l=300//ft
+d=0.5
+g=32.2
+pi=22/7
+//CALCULATIONS
+j=(h*wa/wg)-h+((k1-k2)*k3/wg)
+j1=1+(4*f*l/d)
+v=sqrt(2*g*j/j1)
+del=pi*d*d*v*3600/4
+//results
+printf (' Delivery= %.f ft^3/hr ',del-25)
|