summaryrefslogtreecommitdiff
path: root/2021/CH8/EX8.7/Ex8_7.sce
blob: 0efead31907e7d84f1ce278aebb357a57c33dfa5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//Finding of Dischage through a fully submersed Orifice
//Given
b=2;
H=0.8;
H1=2.5;
H2=3;
Cd=0.6;
g=9.81;
//To Find
a=sqrt(2*g*H);
q=Cd*a*b*(H2-H1);
disp("Dischage through a fully submersed Orifice ="+string(q)+" m^3/sec");