summaryrefslogtreecommitdiff
path: root/2021/CH14/EX14.13/EX14_13.sce
blob: 75db6e6baf7f033f8599e3ae1aa6bf35998ebe89 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//Finding of Qm,Lm,Hm
//Given
Lp=16;
Lm=1;
Hp=4;
L1=150;
H1=7.2;
H2=16;
//To Find
Hm=H1*(Lm/Lp);
lm=L1*(Lm/Lp);
Qm=(Lp/Lm)^2*(Hp/H2)^(1/2);
disp("Lm ="+string(lm)+" meter");
disp("Hm ="+string(Hm)+" meter");
disp("Qm ="+string(Qm)+" m^3/sec");