summaryrefslogtreecommitdiff
path: root/1962/CH9/EX9.3/example9_3.sce
blob: 426e1928fe96ef6251c4da23862838732942a38a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

//example 9.3
//page 311
clc; funcprot(0);
//initialisation of variable
Q=0.1;
hf=5.43;//head loss
L=100;
nu=1.007*10^-6;//kinematic viscosity
pi=3.14;
g=9.81;
A=8*L*Q^2/hf/g/pi^2;
//using moody's chart
f=0.021;
D=(A*f)^0.2;
disp(D,"diameter of the pipe(m)=");
clear