1 files changed, 12 insertions, 0 deletions
diff --git a/2420/CH9/EX9.4/9_4.sce b/2420/CH9/EX9.4/9_4.sce
new file mode 100755
index 000000000..9b1645c9f
--- /dev/null
+++ b/2420/CH9/EX9.4/9_4.sce
@@ -0,0 +1,12 @@
+clc
+clear
+//Initialization of variables
+dif=4 //in
+gam=62.4 //lb per cu ft
+density=13.6 //g/cc
+//calculations
+pv=dif*1/12 *density*gam/144 - dif/12 *gam/144
+hv=pv*144/gam
+//results
+printf("velocity pressure = %.2f psi",pv)
+printf("\n velocity head = %.1f ft of water ",hv)