1 files changed, 17 insertions, 0 deletions
diff --git a/1466/CH14/EX14.7/14_7.sce b/1466/CH14/EX14.7/14_7.sce
new file mode 100755
index 000000000..b3b6ecffa
--- /dev/null
+++ b/1466/CH14/EX14.7/14_7.sce
@@ -0,0 +1,17 @@
+
+clc
+//initialisation of variables
+T=288//c abs
+d=1/6
+f=0.005
+l=300//ft
+g=32.2//ft/sec^2
+R=96
+p1=100//lb/in^2
+Q=80//ft^3/min
+//CALCULATIONS
+a=%pi*d*d/(4)
+v1=Q/(a*60)
+p2=p1*sqrt(1-((8*f*l*v1*v1)/(2*g*d*R*T)))
+//RESULTS
+printf (' delivery pressure= %.1f lb/in^2',p2)