From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 650/CH8/EX8.5/5.sce | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100755 650/CH8/EX8.5/5.sce

(limited to '650/CH8/EX8.5/5.sce')

diff --git a/650/CH8/EX8.5/5.sce b/650/CH8/EX8.5/5.sce
new file mode 100755
index 000000000..cafe99b0a
--- /dev/null
+++ b/650/CH8/EX8.5/5.sce
@@ -0,0 +1,21 @@
+clc
+m=40/60; // kg/s
+rho=873; // kg/m^3
+d=0.025; // m
+u=8.8*10^-4; // Ns/m^2
+dp=55*10^3; //N/m^2
+L=18; // m
+g=9.81; // m/s^2
+
+v2=4*m/rho/%pi/d^2;
+Re=rho*v2*d/u;
+
+// According to this value of Re, Prandtl's equation is satisfied. 
+// 1/sqrt(f)=4*log(Re*sqrt(f))-0.4
+// By trial and error method we get friction factor equal to
+f=0.0055;
+
+H=dp/rho/g + v2^2/2/g + v2^2/2/g*(4*f*L/d+1.5);
+disp("The minimum allowable height =")
+disp(H)
+disp("m")
\ No newline at end of file
-- 
cgit