650/CH3/EX3.5/5.sce


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

clc
u=0.015; //Ns/m^2
Q=0.004/60; //m^3/s
dp=100;
rho=1100; //kg/m^3

R=(8*u*Q/(%pi*dp))^(1/4);
Re=(4*rho*Q/(%pi*u*(2*R)));

disp("Diameter of the pipe =")
disp(R)
disp("m")

disp("Reynolds number =")
disp(Re)