summaryrefslogtreecommitdiff
path: root/1268/CH11/EX11.7/a_7.sce
blob: 34fd29f06ff645c7db9d1095e6b2d115353c78f3 (plain)
1
2
3
4
5
6
7
8
9
clc;
disp("Example A.7")
Q=700000/3600  // in m^3/s
d=0.2 // diameter in m
v=1.2e-5 // kinematic viscosity
Re=4*Q/(%pi*d*v)
ratio=0.0013
f=0.3313/((log((ratio/3.7)+(5.74/(Re^0.9))))^2)
disp(f,"Friction factor is ")