diff options
Diffstat (limited to '3814/CH8/EX8.3/Ex8_3.sce')
| -rw-r--r-- | 3814/CH8/EX8.3/Ex8_3.sce | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/3814/CH8/EX8.3/Ex8_3.sce b/3814/CH8/EX8.3/Ex8_3.sce new file mode 100644 index 000000000..a51ce2e1e --- /dev/null +++ b/3814/CH8/EX8.3/Ex8_3.sce @@ -0,0 +1,10 @@ +// radial flow pump characteristic is given by
+clc
+a=196
+b=-10.7
+c=7.9
+a1=(1/(2*a))
+Q=a1*(-b+sqrt((b^2)+(4*a*c)))
+mprintf('\n Operating point at Q = %f m3/s',Q)
+H=15+(85*Q^2)
+mprintf('\n H = %f m',H)
|