diff options
Diffstat (limited to '2087/CH4/EX4.27/example4_27.sce')
| -rwxr-xr-x | 2087/CH4/EX4.27/example4_27.sce | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/2087/CH4/EX4.27/example4_27.sce b/2087/CH4/EX4.27/example4_27.sce new file mode 100755 index 000000000..f6d3e0662 --- /dev/null +++ b/2087/CH4/EX4.27/example4_27.sce @@ -0,0 +1,21 @@ +
+
+//example 4.27
+//calculate rainfall excess
+clc;funcprot(0);
+//given
+A=316; //drainage area
+B=17; //base flow
+t=6;
+O=[17.0 113.2 254.5 198.0 150.0 113.2 87.7 67.9 53.8 42.5 31.1 22.6 17.0]; //ordinates of storm hydrograph
+for i=1:13
+ Or(i)=O(i)-B; //ordinates of direct run-off
+ Oh(i)=Or(i)/6.477; //ordinates of unit hydrograph
+end
+s=0;
+for i=1:13
+ s=s+Or(i);
+end
+re=s*60*60*t/(A*10000);
+re=round(re*1000)/1000;
+mprintf("rainfall excess=%f cm.",re);
|