initial commit / add all books

7 files changed, 129 insertions, 0 deletions

diff --git a/2159/CH9/EX9.1/91.sce b/2159/CH9/EX9.1/91.sce
new file mode 100755
index 000000000..398f207c0
--- /dev/null
+++ b/2159/CH9/EX9.1/91.sce
@@ -0,0 +1,15 @@
+// problem 9.1

+D=0.15

+s=0.25

+N=50

+Hs=5

+Hd=5

+n1=0.6

+n2=0.78

+g=9.81

+w=g*1000

+a=3.142*D*D/4

+Fs=(w*a*Hs)/n1

+Fd=(w*a*Hd)/n2

+P=((Fs+Fd)*s*N)/(1000*60)

+disp(P,"power required by the pump in Kw")

diff --git a/2159/CH9/EX9.2/92.sce b/2159/CH9/EX9.2/92.sce
new file mode 100755
index 000000000..8939e0cad
--- /dev/null
+++ b/2159/CH9/EX9.2/92.sce
@@ -0,0 +1,13 @@
+// problem 9.2

+D=0.18

+s=0.36

+Hs=3

+Hd=45

+N=50

+n=0.85

+a=3.142*D*D/4

+Q=(2*a*s*N)/60

+g=9.81

+w=g*1000

+P=w*Q*(Hs+Hd)/(n*1000)

+disp(P,"power in kw required to drive the pump")

diff --git a/2159/CH9/EX9.3/93.sce b/2159/CH9/EX9.3/93.sce
new file mode 100755
index 000000000..90a7bc324
--- /dev/null
+++ b/2159/CH9/EX9.3/93.sce
@@ -0,0 +1,14 @@
+// problem 9.3

+D=0.15

+s=0.3

+Hs=3

+Hd=30

+n=0.8

+a=3.142*D*D/4

+N=60/60

+w=9810

+Q=0.62/60

+Qth=(2*a*s*N)

+slip=(Qth-Q)/Qth

+power=(w*Qth*(Hs+Hd))/(1000*n)

+disp(slip*100,power,"power in Kw required to drive the pump,percentage slip")

diff --git a/2159/CH9/EX9.4/94.sce b/2159/CH9/EX9.4/94.sce
new file mode 100755
index 000000000..9c8556ba4
--- /dev/null
+++ b/2159/CH9/EX9.4/94.sce
@@ -0,0 +1,18 @@
+// problem 9.4

+D=0.15

+s=0.3

+N=50/60

+H=25

+Qact=0.0042

+Ld=22

+d=0.1

+a=3.142*D*D/4

+Qth=a*s*N

+w=9810

+power=w*Qth*H/1000

+slip=(Qth-Qact)/Qth

+W=2*3.142*N

+a1=3.142*d*d/4

+g=9.81

+Had=(Ld*a*W*W*s)/(g*a1*2)

+disp(Had,slip*100,power,Qth,"theoritical discharge,theoritical power,percentage slip,acceleration head")

diff --git a/2159/CH9/EX9.5/95.sce b/2159/CH9/EX9.5/95.sce
new file mode 100755
index 000000000..316f17538
--- /dev/null
+++ b/2159/CH9/EX9.5/95.sce
@@ -0,0 +1,16 @@
+// problem 9.5

+s=0.15

+Ls=7

+ds=0.075

+N=75/60

+Hs=2.5

+z=16/9

+f=0.01

+W=2*3.142*N

+g=9.81

+Has=Ls*z*W*W*ds/g

+H=Hs+Has

+H1=Has-Hs

+Hfs=(4*f*Ls/(ds*2*g))*((z*W*ds)^2)

+H2=Hfs+Hs

+disp(H2,H1,H,"pressure head:beginningof suction stroke,end of the suction stroke,middle of the suction stroke")

diff --git a/2159/CH9/EX9.6/96.sce b/2159/CH9/EX9.6/96.sce
new file mode 100755
index 000000000..cfa1ad5cd
--- /dev/null
+++ b/2159/CH9/EX9.6/96.sce
@@ -0,0 +1,16 @@
+// problem 9.6

+D=0.08

+s=0.15

+Hs=3

+ds=0.03

+g=9.81

+Ls=4.5

+p=78.86*(1000)

+w=9810

+W=2*3.142/60

+z=(D/ds)^2

+Hsep=p/w

+Habs=10.3-Hsep

+Has=Hsep-Hs

+N=((Has*g*2)/(z*W*W*s*Ls))^0.5

+disp(N,"maximium speed in rpm at which may run without separation")

diff --git a/2159/CH9/EX9.7/97.sce b/2159/CH9/EX9.7/97.sce
new file mode 100755
index 000000000..ce5fb9016
--- /dev/null
+++ b/2159/CH9/EX9.7/97.sce
@@ -0,0 +1,37 @@
+// problem 9.7

+Hs=5

+Ls=10

+D=0.15

+d=0.1

+N=30/60

+s=0.15

+g=9.81

+W=2*3.142*N

+w=9810

+ha=10.3

+z=(D/d)^2

+H=(Ls*z*W*W*s/g)

+Ph=Hs+H

+Phabs=ha-Ph

+f=0.01

+Hfs=(4*f*Ls/(d*2*g))*((z*W*s)^2)

+H1=Hs+Hfs

+H1abs=ha-H1

+H2=Hs-H

+H2abs=ha-H2

+Hd=15

+Ld=25

+H11=(Ld*z*W*W*s/g)

+H12=H11+Hd

+H12abs=ha+H12

+Hfd=(4*f*Ld/(d*2*g))*((z*W*s)^2)

+H22=Hd+Hfd

+H22abs=ha+H22

+H3=Hd-H11

+H3abs=ha+H3

+a=3.142*D*D/4

+Q=a*s*2*N

+power=(w*Q*(Hs+Hd+(0.6666*Hfs)+Hfd*0.6666))/1000

+disp(H2abs,H1abs,"pressure head at middle and end of suction stroke")

+disp(H3abs,H22abs,H12abs,"pressure head at beginning,middle,end of suction stroke")

+disp(power,"power in Kw required to drive the pump")