1 files changed, 14 insertions, 0 deletions
diff --git a/896/CH6/EX6.4/4.sce b/896/CH6/EX6.4/4.sce
new file mode 100755
index 000000000..45e3262e6
--- /dev/null
+++ b/896/CH6/EX6.4/4.sce
@@ -0,0 +1,14 @@
+clc
+//Example 6.4
+//Calculate the gauge pressure in the tank
+q=300//gal/min flow rate
+d=3.068//in inner diameter
+a=(%pi)*(3.068/12)^2/4//ft^2
+//1 ft^3 = 7.48 gal
+//1 min = 60 sec
+v_avg=q/a/60/7.48//ft/s
+f=0.0091//dimentionless fanning friction factor
+dx=3000//ft
+rho=62.3//lbm/ft^3
+dp=4*f*(dx/(d/12))*rho*(v_avg^2/2)/32.2/144//lbf/in^2 or psi
+printf("The gauge pressure in the tank is %f psi",dp);
+\ No newline at end of file