blob: 1a50df525b9dd1ec4290bd2bd3ea2a10c87ec535 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
clc;
disp("Example 8.1")
d=0.05 // diameter in m
density= 1680 // in kg/m^#
mew= 0.45 // in kg/ms
rate=10 // in kg/s
Q=rate/density
U=4*Q/(%pi*d*d)
Re= d*density*U/mew
if (Re<2100) then
f=16/Re
delP=2*f*density*U*U/d
disp(delP,"Pressure Gradient is ")
end
|
