1 files changed, 14 insertions, 0 deletions
diff --git a/2504/CH6/EX6.7/6_7.sce b/2504/CH6/EX6.7/6_7.sce
new file mode 100755
index 000000000..676d7e7ac
--- /dev/null
+++ b/2504/CH6/EX6.7/6_7.sce
@@ -0,0 +1,14 @@
+clc
+//initialisation of variables
+clear
+r1= 10 //ft
+r2= 0.2 //miles
+w= 0.0765 //lbm/ft^2
+g= 32.2 //ft/sec^2
+V1= 1 //ft/sec
+//CALCULATIONS
+k= r2*5280*V1 
+dp= w*k^2*10*((1/r1)^2-(1/(5280*r2))^2)/(2*g)
+//RESULTS
+printf ('k = %.f ft^2/sec',k)
+printf ('\n pressure difference = %.1f lbf/ft^2',dp)