summaryrefslogtreecommitdiff
path: root/2021/CH8/EX8.6/Ex8_6.sce
blob: 7211abd8f0d928d2d5e2ee37ba7eba83ebd0bf9c (plain)
1
2
3
4
5
6
7
8
9
10
11
//Finding of Dischage through Rectangular orifice
//Given
H1=4;
H2=6;
Cd=0.62;
g=9.81;
//To Find
a=H2^(3/2)-H1^(3/2);
b=sqrt(2*g);
q=Cd*2*b*a;
disp("Dischage through Rectangular orifice ="+string(q)+" m^3/sec");