1 files changed, 14 insertions, 0 deletions
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")