1 files changed, 18 insertions, 0 deletions
diff --git a/2420/CH9/EX9.9/9_9.sce b/2420/CH9/EX9.9/9_9.sce
new file mode 100755
index 000000000..609fb1725
--- /dev/null
+++ b/2420/CH9/EX9.9/9_9.sce
@@ -0,0 +1,18 @@
+clc
+clear
+//Initialization of variables
+z=12 //ft
+gam1=62.4 //lb/ft^3
+sg=0.8
+P2=100 //psia
+P1=-10 //psia
+mm=10000 //lb/min
+//calculations
+gam2=sg*gam1
+p2g=P2*144/(gam2) +z
+p1g=P1*144*0.491/(gam2)
+ht=p2g-p1g
+Hhp=mm*ht/33000
+//results
+printf("Total dynamic head = %.1f ft of oil",ht)
+printf("\n Hydraulic hp = %.1f hp",Hhp)