650/CH2/EX2.3/3.sce


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

clc
rho=1000; //kg/m^3
d=0.05; //m
L=500; //m
v=1.7; //m/s

a=%pi*d^2/4;
F=rho*a*L*v;

P=F/a/10^3;
disp("Average pressure =")
disp(P)
disp("kN/m^2")