summaryrefslogtreecommitdiff
path: root/2021/CH6/EX6.3/EX6_3.sce
blob: 6d5b240e719f81a8d29ca97c61cdcbf019b9d490 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//Finding of Discharge
//Given
d1=30;
d2=15;
hom=10;
cod=0.98;
pi=3.14;
g=9.81;
//To Find
a1=(pi/4)*d1^2;
a2=(pi/4)*d2^2;
h=hom*(12.6);
q=(cod*a1*a2*(2*100*g*h)^(1/2))/((a1^2-a2^2)^(1/2));
q1=q/1000;
disp("Discharge ="+string(q1)+" m^3/sec");