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

//example 9.5
//page 319
clc; funcprot(0);
//initialisation of variable
epsilon=0.025;//roughness
L=500;
pi=3.14;
g=9.81;
D=30/100;
Q=0.1;
K=pi/4*sqroot(2*g)*(2*log10(D*100/epsilon)+1.14)*D^2.5;
S=(Q/K)^2;
hf=S*L;
disp(hf,"head loss(m)=");
clear