8 files changed, 145 insertions, 0 deletions
diff --git a/1466/CH8/EX8.1/8_1.sce b/1466/CH8/EX8.1/8_1.sce
new file mode 100755
index 000000000..eadec7717
--- /dev/null
+++ b/1466/CH8/EX8.1/8_1.sce
@@ -0,0 +1,16 @@
+
+
+clc
+//initialisation of variables
+d=0.8
+cv=0.01
+db=0.6
+cvb=0.005
+//CALCULATIONS
+v=cv/d
+vc=v*2000
+vb=cvb/db
+vcb=vb*2000
+r=vc/vcb
+//results
+printf (' Ratio of critical velocities= %.1f',r)
diff --git a/1466/CH8/EX8.2/8_2.sce b/1466/CH8/EX8.2/8_2.sce
new file mode 100755
index 000000000..ac8c01ce6
--- /dev/null
+++ b/1466/CH8/EX8.2/8_2.sce
@@ -0,0 +1,29 @@
+clc
+//initialisation of variables
+a=0.00001929
+b=0.03368
+c=0.000221
+t=5//c
+n=1/12
+d=1/4//in
+g=32//ft/sec^2
+l=100//ft
+t1=70//c
+va=1//ft/sec
+vb=10//ft/sec
+ka=0.032
+k2=-0.23
+//CALCULATIONS
+v=a/(1+b*t+(c*t*t))
+Re=d*n*va/v
+k=8/Re
+i=k*4*va*va/(d*n*g)
+hf=i*l
+v1=a/(1+b*t1+(c*t1*t1))
+Re1=d*n*vb/v1
+k1=ka*(Re1^k2)
+i1=k1*4*vb*vb/(d*n*g)
+hf1=i1*l
+//RESULTS
+printf ('\n loss of head= %.2f ft ',hf )
+printf ('\n loss of head= %.f ft ',hf1 )
diff --git a/1466/CH8/EX8.3/8_3.sce b/1466/CH8/EX8.3/8_3.sce
new file mode 100755
index 000000000..1db199dad
--- /dev/null
+++ b/1466/CH8/EX8.3/8_3.sce
@@ -0,0 +1,20 @@
+
+clc
+//initialisation of variables
+w=20//tons
+d=0.5
+w1=57.2//lb/ft^2
+vs=0.0205//ft-sec
+pi=22/7
+l=1000//ft
+g=32.2//ft/sec^2
+//CALCULATIONS
+Q=w*2240/(w1*3600)
+v=(Q*4)/(pi*d*d)
+Re=v*d/vs
+k=8*(27.1)^-1
+i=k*v*v*4/(d*g)
+hf=i*l
+hp=w*hf*2240/(3600*550)
+//RESULTS
+printf (' horse power required= %.2f ',hp)
diff --git a/1466/CH8/EX8.4/8_4.sce b/1466/CH8/EX8.4/8_4.sce
new file mode 100755
index 000000000..d6ae50290
--- /dev/null
+++ b/1466/CH8/EX8.4/8_4.sce
@@ -0,0 +1,17 @@
+
+
+clc
+//initialisation of variables
+t1=10//c
+hf=30//ft
+t=0.004/12//in
+g=32.2//ft/sec^2
+l=1
+D=4/12
+//CALCULATIONS
+i=hf/l
+v=0.00001929/(1+(0.03368*t1)+(0.000221*t1*t1))
+mv=g*i*t*t/(12*v)
+rate=mv*%pi*D*t
+//RESULTS
+printf (' Rate of flow= %.6f ft^3/sec ',rate)
diff --git a/1466/CH8/EX8.5/8_5.sce b/1466/CH8/EX8.5/8_5.sce
new file mode 100755
index 000000000..21fad30b3
--- /dev/null
+++ b/1466/CH8/EX8.5/8_5.sce
@@ -0,0 +1,13 @@
+
+clc
+//initialisation of variables
+t=0.001/12//ft
+n=30//rpm
+ne=0.0032
+pi=22/7
+D=1/3
+l=2/3
+//CALCULATIONS
+vt=ne*pi*pi*D^3*l*n/(120*t)
+//RESULTS
+printf (' viscious torque= %.2f lb-ft',vt)
diff --git a/1466/CH8/EX8.6/8_6.sce b/1466/CH8/EX8.6/8_6.sce
new file mode 100755
index 000000000..f7623a734
--- /dev/null
+++ b/1466/CH8/EX8.6/8_6.sce
@@ -0,0 +1,15 @@
+
+clc
+//initialisation of variables
+ne=0.0019
+n=300//rpm
+pi=22/7
+t=0.01/12//ft
+R1=0.25//ft
+R2=0.167//ft
+//CALCULATIONS
+w=pi*n/60
+T=pi*0.0019*w*2*(R1^4-R2^4)/(2*t)
+hp=T*2*pi*n/33000
+//RESULTS
+printf (' hp absorbed= %.2f',hp)
diff --git a/1466/CH8/EX8.7/8_7.sce b/1466/CH8/EX8.7/8_7.sce
new file mode 100755
index 000000000..d490339a9
--- /dev/null
+++ b/1466/CH8/EX8.7/8_7.sce
@@ -0,0 +1,20 @@
+
+clc
+//initialisation of variables
+d=5//cm
+d2=0.01//cm
+l=10//cm
+w=0.88//g/cm^3
+d1=0.1//cm
+T=20*60//sec
+Q=50//cm^3
+H1=5//cm
+w1=0.88*981//dynes
+n1= 0.007 //poise
+//CALCULATIONS
+A=%pi*d*d/4
+a=%pi*d1*d1/4
+H2=H1-(Q/A)
+n=T*a*w1*d2/(32*A*l**log(H1/H2))-n1
+//RESULTS
+printf ('viscosity of liquid= %.4f poises',n)
diff --git a/1466/CH8/EX8.8/8_8.sce b/1466/CH8/EX8.8/8_8.sce
new file mode 100755
index 000000000..0e68f3fa0
--- /dev/null
+++ b/1466/CH8/EX8.8/8_8.sce
@@ -0,0 +1,15 @@
+
+clc
+//initialisation of variables
+l=20//cm
+t=21.3//sec
+d=0.0622//in
+g=981
+p1=7.8//g/cm^3
+p2=0.96//g/cm^3
+//CALCULATIONS
+vf=l/t
+r=d*2.54/2
+n=2*r*r*g*(p1-p2)/(9*vf)
+//RESULTS
+printf (' coefficient of viscocity= %.2f poise',n)