diff options
Diffstat (limited to '1364/CH8')
| -rwxr-xr-x | 1364/CH8/EX8.2.1/8_2_1.sce | 13 | ||||
| -rwxr-xr-x | 1364/CH8/EX8.3.1/8_3_1.sce | 9 | ||||
| -rwxr-xr-x | 1364/CH8/EX8.3.2/8_3_2.sce | 13 | ||||
| -rwxr-xr-x | 1364/CH8/EX8.3.3/8_3_3.sce | 12 | ||||
| -rwxr-xr-x | 1364/CH8/EX8.3.4/8_3_4.sce | 14 | ||||
| -rwxr-xr-x | 1364/CH8/EX8.4.1/8_4_1.sce | 13 | ||||
| -rwxr-xr-x | 1364/CH8/EX8.5.1/8_5_1.sce | 16 | ||||
| -rwxr-xr-x | 1364/CH8/EX8.5.2/8_5_2.sce | 18 | ||||
| -rwxr-xr-x | 1364/CH8/EX8.6.2/8_6_2.sce | 11 |
9 files changed, 119 insertions, 0 deletions
diff --git a/1364/CH8/EX8.2.1/8_2_1.sce b/1364/CH8/EX8.2.1/8_2_1.sce new file mode 100755 index 000000000..578acef27 --- /dev/null +++ b/1364/CH8/EX8.2.1/8_2_1.sce @@ -0,0 +1,13 @@ +clc
+//initialisation of variables
+v= 5*10^-6 //gmsec/m^2
+g= 32.2 //ft/sec^2
+g1= 981 //gm/cm^2
+//CALCULATIONS
+v1= v*2.2*30.5^2/1000
+v2= v1*g
+v3= v*g1*100
+//RESULTS
+printf (' viscosity in lbf sec/ft^2= %.2e lbf sec/ft^2 ',v1)
+printf (' \n viscosity in lb/ft sec = %.2e lb/ft sec ',v2)
+printf (' \n viscosity in centi-poise = %.3f centi-poise ',v3)
diff --git a/1364/CH8/EX8.3.1/8_3_1.sce b/1364/CH8/EX8.3.1/8_3_1.sce new file mode 100755 index 000000000..c5fbdb025 --- /dev/null +++ b/1364/CH8/EX8.3.1/8_3_1.sce @@ -0,0 +1,9 @@ +clc
+//initialisation of variables
+v= 3.732*10^-7 //slug/ft sec
+y= 0
+//CALCULATIONS
+vbyy= 40000*(1-50*y)
+q= v*vbyy
+//RESULTS
+printf (' viscous shear stress= %.4f lbf/ft^2 ',q)
diff --git a/1364/CH8/EX8.3.2/8_3_2.sce b/1364/CH8/EX8.3.2/8_3_2.sce new file mode 100755 index 000000000..09e59a81e --- /dev/null +++ b/1364/CH8/EX8.3.2/8_3_2.sce @@ -0,0 +1,13 @@ +clc
+//initialisation of variables
+T= 2.95 //lbf ft
+y= 0.025 //in
+d= 3 //in
+d1= 3.05 //in
+h= 8 //in
+w= 450 //r.p.m
+g= 32.2 //ft/sec^2
+//CALCULATIONS
+v= T*y*12*4*60*144*g/(%pi*d*h*d^2*w*2*%pi)
+//RESULTS
+printf (' coefficient of viscocity of oil= %.3f lb/ft sec ',v)
diff --git a/1364/CH8/EX8.3.3/8_3_3.sce b/1364/CH8/EX8.3.3/8_3_3.sce new file mode 100755 index 000000000..dfbdbaa56 --- /dev/null +++ b/1364/CH8/EX8.3.3/8_3_3.sce @@ -0,0 +1,12 @@ +clc
+//initialisation of variables
+v= 0.02 //lb/ft sec
+L= 5 //in
+D= 2.5 //in
+M= 26 //lbf in
+w= 1200 //rev/min
+g= 32.2 //ft/sec^2
+//CALCULATIONS
+C= %pi*v*w*2*%pi*D^3*L/(2*M*g*60*144)
+//RESULTS
+printf (' coefficient= %.4f in ',C)
diff --git a/1364/CH8/EX8.3.4/8_3_4.sce b/1364/CH8/EX8.3.4/8_3_4.sce new file mode 100755 index 000000000..a63b8a3ab --- /dev/null +++ b/1364/CH8/EX8.3.4/8_3_4.sce @@ -0,0 +1,14 @@ +clc
+//initialisation of variables
+g= 32.2 //ft/sec^2
+l= 2.54 //cm
+g= 32.2 //ft/sec^2
+v= 3.22 //centi-poise
+f= 0.01
+p= 1.74 //lbf/in^2
+w= 100 //rev
+//CALCULATIONS
+V= v*l/(453.6*g*12)
+R= f*p*60/(%pi*2*%pi*w*V)
+//RESULTS
+printf (' relevant ratio of diameter to clearance= %.1f ',R)
diff --git a/1364/CH8/EX8.4.1/8_4_1.sce b/1364/CH8/EX8.4.1/8_4_1.sce new file mode 100755 index 000000000..9a75f8c4c --- /dev/null +++ b/1364/CH8/EX8.4.1/8_4_1.sce @@ -0,0 +1,13 @@ +clc
+//initialisation of variables
+g= 981 //cm/sec^2
+d= 0.1 //mm
+v= 35 //centi-stokes
+d1= 10 //mm
+d2= 1 //mm
+//CALCULATIONS
+u= g*d^2*100/(18*v*d1^2)
+ub= (d2/d)^2*u
+//RESULTS
+printf (' rate for diameter 0.1 mm= %.4f cm/sec',u)
+printf (' \n rate for diameter 1 mm= %.2f cm/sec',ub)
diff --git a/1364/CH8/EX8.5.1/8_5_1.sce b/1364/CH8/EX8.5.1/8_5_1.sce new file mode 100755 index 000000000..12121640e --- /dev/null +++ b/1364/CH8/EX8.5.1/8_5_1.sce @@ -0,0 +1,16 @@ +clc
+//initialisation of variables
+a= 0.25 //ft
+v= 1.2 //oises
+u= 10 //ft/sec
+g= 32.2 //ft/sec^2
+s= 0.9
+d= 6 //in
+//CALCULATIONS
+q= -2*u*v*30.5/(a*454*g)
+Q= %pi*u*(d/24)^2/2
+R= u*s*30.5^2/(4*v)
+//RESULTS
+printf (' quantity flow = %.2f ft^3/sec',q)
+printf (' \n shear stress in the oil = %.2f lbf/ft^2',Q)
+printf (' \n Reynolds number = %.f ',R)
diff --git a/1364/CH8/EX8.5.2/8_5_2.sce b/1364/CH8/EX8.5.2/8_5_2.sce new file mode 100755 index 000000000..734a05680 --- /dev/null +++ b/1364/CH8/EX8.5.2/8_5_2.sce @@ -0,0 +1,18 @@ +clc
+//initialisation of variables
+s= 0.9
+v= 5 //ft/sec
+l= 10 //ft
+di= 0.5 //in
+n= 100
+u= 0.002 //lbfsec/ft^2
+w= 62.3 //lbf/ft^3
+g= 32.2 //ft/sec^2
+//CALCULATIONS
+dp= 8*u*v*l/(di/2)^2
+hf= dp*144/(s*w)
+hk= v^2/(2*g)
+ht=hf+hk
+P= s*w*n*v*%pi*ht*di^2/(144*4*550)
+//RESULTS
+printf (' horse-power required = %.1f h.p',P)
diff --git a/1364/CH8/EX8.6.2/8_6_2.sce b/1364/CH8/EX8.6.2/8_6_2.sce new file mode 100755 index 000000000..2be9d365c --- /dev/null +++ b/1364/CH8/EX8.6.2/8_6_2.sce @@ -0,0 +1,11 @@ +clc
+//initialisation of variables
+W= 50 //tonf
+v= 0.1 //lb/ft sec
+d= 8//in
+g= 32.2 //ft/sec^2
+r= 0.01
+//CALCULATIONS
+Q= 4*W*2240*g*12*(r/d)^3/(3*%pi*v*(d/12))
+//RESULTS
+printf (' rate = %.3f in/sec',Q)
|