diff options
Diffstat (limited to '2087/CH12/EX12.7/example12_7.sce')
| -rwxr-xr-x | 2087/CH12/EX12.7/example12_7.sce | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/2087/CH12/EX12.7/example12_7.sce b/2087/CH12/EX12.7/example12_7.sce new file mode 100755 index 000000000..d6b20376d --- /dev/null +++ b/2087/CH12/EX12.7/example12_7.sce @@ -0,0 +1,15 @@ +
+
+//example12.7
+//calculate heigth of weir to be built
+clc;funcprot(0);
+//given
+B=30; //stream width
+D=3; //stream depth
+V=1.25; //mean velocity
+Cd=0.95; //discharge coefficient
+Q=B*D*V;
+C=2*Cd*(2*9.81)^0.5/3;
+x=4-(Q/(C*B))^(2/3);
+x=round(x*1000)/1000;
+mprintf("heigth of weir to be built=%f m.",x);
|