diff options
Diffstat (limited to '2789/CH9/EX9.2')
| -rwxr-xr-x | 2789/CH9/EX9.2/Ex9_2.sce | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/2789/CH9/EX9.2/Ex9_2.sce b/2789/CH9/EX9.2/Ex9_2.sce new file mode 100755 index 000000000..7d8d9947e --- /dev/null +++ b/2789/CH9/EX9.2/Ex9_2.sce @@ -0,0 +1,17 @@ +clear;
+clc;
+
+//page no. 285
+
+T = 100;// degreeF
+d = 3;// inches
+Re = 80000;// Reynolds number
+e = 0.006;// inches
+l = 1000;//feet
+f1 = 0.021;//friction factor
+nu = 0.729*10^-5;// sqft/sec
+V = Re*nu/0.25;
+h_L1 = f1*(l/0.25)*(V^2 /(2*32.2));
+f = 0.316/Re^0.25;
+h_L = (f/f1)*h_L1;
+printf('Head loss expected = %.1f ft\n and head loss expected if the pipe were smooth = %.2f ft',h_L1,h_L);
|