1 files changed, 15 insertions, 0 deletions
diff --git a/2066/CH9/EX9.4/9_4.sce b/2066/CH9/EX9.4/9_4.sce
new file mode 100755
index 000000000..602269289
--- /dev/null
+++ b/2066/CH9/EX9.4/9_4.sce
@@ -0,0 +1,15 @@
+clc
+clear
+//Initialization of variables
+p1=14.7 //psia
+z1=3 //ft
+gam=62.4
+rho=1.94 //slug/ft^3
+pa=0.4 //psia
+za=1 //ft
+//calculations
+v3=(pa-p1)*144 + (za-z1)*gam
+V=sqrt(-v3*2/(3*rho))
+//results
+printf("Velocity of flow = %.1f ft/s",V)
+disp("The answer is a bit different due to rounding off error in textbook")