diff options
Diffstat (limited to '1268/CH8/EX8.3/8_3.sce')
| -rw-r--r-- | 1268/CH8/EX8.3/8_3.sce | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/1268/CH8/EX8.3/8_3.sce b/1268/CH8/EX8.3/8_3.sce new file mode 100644 index 000000000..48987eb25 --- /dev/null +++ b/1268/CH8/EX8.3/8_3.sce @@ -0,0 +1,13 @@ +clc;
+disp("Example 8.3")
+d=0.025 // diameter in m
+l=120 // length in m
+density= 1000
+Q=2.525e-3 // volumetric flow rate in m^3/s
+U=4*Q/(%pi*d*d)
+Re=density*U*d/mew
+f=0.0014+(0.125/(Re^0.32))
+delP=2*f*l*U*U*density/d
+disp(delP,"Pressure head is ")
+Power=delP*Q
+disp(Power,"Power required to overcome friction is ")
|