From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 2159/CH9/EX9.1/91.sce | 15 +++++++++++++++
 2159/CH9/EX9.2/92.sce | 13 +++++++++++++
 2159/CH9/EX9.3/93.sce | 14 ++++++++++++++
 2159/CH9/EX9.4/94.sce | 18 ++++++++++++++++++
 2159/CH9/EX9.5/95.sce | 16 ++++++++++++++++
 2159/CH9/EX9.6/96.sce | 16 ++++++++++++++++
 2159/CH9/EX9.7/97.sce | 37 +++++++++++++++++++++++++++++++++++++
 7 files changed, 129 insertions(+)
 create mode 100755 2159/CH9/EX9.1/91.sce
 create mode 100755 2159/CH9/EX9.2/92.sce
 create mode 100755 2159/CH9/EX9.3/93.sce
 create mode 100755 2159/CH9/EX9.4/94.sce
 create mode 100755 2159/CH9/EX9.5/95.sce
 create mode 100755 2159/CH9/EX9.6/96.sce
 create mode 100755 2159/CH9/EX9.7/97.sce

(limited to '2159/CH9')

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")
-- 
cgit