summaryrefslogtreecommitdiff
path: root/2021/CH19/EX19.12/EX19_12.sce
blob: 9828feb2b4ebec89929cf3478257caba8ffe02d7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
//Finding of Head Discharge , Ratio of Power
//Given
Q1=0.035;
H1=25;
D1=0.5;
N1=1200;
D2=0.3;
N2=2000;
//To Find
H=(D2*N2*sqrt(H1))/(D1*N1);
H2=H^2;
Q=(Q1*D2^3*N2)/(D1^3*N1);
Pr=(D1/D2)^5*(N1/N2)^3;
disp("Head ="+string(H2)+" meter");
disp("Discharge ="+string(Q)+" m^3/sec");
disp("Power Ratio ="+string(Pr)+" No Units");