summaryrefslogtreecommitdiff
path: root/1268/CH4/EX4.10/4_10.sce
blob: 6fcb7a563b834e1226b2ce3b307a51a414522076 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
clc;
disp("Example 4.10")
d=0.05 // diameter in m
density=1000 // density in kg/m^3
mew= 0.001 // viscosity in kg/ms
flowrate= 100/60 // in kg/s
avgvelo=flowrate*4/(%pi*density*d*d)

Re= avgvelo*d*density/mew
if Re<50000 then
    f=0.079/(Re^0.25)
end
disp(" The friction factor is ")
disp(f)