summaryrefslogtreecommitdiff
path: root/2021/CH10/EX10.4/EX10_4.sce
blob: 09506f4df7ba6cb33746f1e461abdf04ae58420f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
//Finding of Bottom slope, Conveyance
//Given
q=0.1;
B=0.6;
y=0.3;
A=B*y;
n=0.013;
P=1.2;
R=A/P;
//To Find
b=((q^2)*(P))/((A^3)*B^2)
K=A*B*sqrt(R);
disp("Bed of slope ="+string(b)+" no units");
disp("conveyance of channel ="+string(K)+" m^3/sec");