summaryrefslogtreecommitdiff
path: root/2021/CH8/EX8.1/Ex8_1.sce
blob: 56980043f546e6bcd1d47d9dbd8a1b3c71b2c6df (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
//Finding of Actual Discharge,velocity
//Given
d=0.05;
H=12;
Cd=0.6;
Cv=0.98;
g=9.81;
//To Find
a=(%pi/4)*d^2;
v=sqrt(2*g*H);
q=Cd*a*v;
V=Cv*v;
disp("Actual Discharge ="+string(q)+" m^3/sec");
disp("Actual Velocity ="+string(V)+" m/sec");