summaryrefslogtreecommitdiff
path: root/858/CH1/EX1.19/example_19.sce
blob: bf812c4968c435977c0ca48dc33ee885336ae665 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
clc
clear 
printf('example 1.19 page number 54\n')

//to find the economic pipe diameter from nomograph
//from the nomograph,we get the values of w and density

w=450     //in kg/hr
density=1000   //in kg/m3
d=16   //in mm

u=(w/density)/(3.14*d^2/4);
Re=u*density*d/0.001;

if Re>2100 then printf("flow is turbulent and d= %f mm",d)
else disp ("flow is laminar and this nomograph is not valid")
end