1 files changed, 19 insertions, 0 deletions
diff --git a/1466/CH7/EX7.10/7_10.sce b/1466/CH7/EX7.10/7_10.sce
new file mode 100755
index 000000000..20888683d
--- /dev/null
+++ b/1466/CH7/EX7.10/7_10.sce
@@ -0,0 +1,19 @@
+
+
+clc
+//initialisation of variables
+clear
+p1=750//lb/in^2
+p2=680//lb/in^2
+f=0.008
+k=62.4
+l=3000//ft
+g=32.2
+//CALCULATIONS
+h=(p1-p2)*144/k
+k1=h*2*g/(4*f*l)
+v=(5280)^0.2
+d=v*v/k1
+//RESULTS
+printf (' velocity of supply pipe= %.2f ft/sec ',v)
+printf ('\n Diameter of supply  pipe= %.3f ft ',d)