summaryrefslogtreecommitdiff
path: root/2132/CH5/EX5.8/Example5_8.sce
blob: fa7cdc08269cf46cb760a9fae313bb8f105d2f50 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
//Example 5.8
clc;
clear;
close;
format('v',8);
//Given data :
D=400/1000;//meter
v1=20;//m/s
Z1=28;//meter
Z2=31;//meter
p1=4/10^-4;//kg/m^2
p2=3/10^-4;//kg/m^2
g=9.81;//constant
w=1000;//kg/m^3
Vhead1=v1^2/2/g;//meter
Phead1=p1/w;//meter
Vhead2=Vhead1;//meter
Phead2=p2/w;//meter
E1=Z1+Vhead1+Phead1;//meter
E2=Z2+Vhead2+Phead2;//meter
HL=E1-E2;//meter
disp(HL,"Loss of head between P & Q in meter : ");