(33E) Stream Flow Estimate in Culverts

[Thomas Klemm]

(03-09-2019 10:30 PM)Thomas Klemm Wrote:  Or then extract \(r\) in the formula for \(A\):

\(A=(\beta r - (r-d)\sin \beta)\cdot r\)

Or rather extract \(r^2\):

\(A=(\beta - \frac{r-d}{r}\sin \beta)\cdot r^2\)

Because we've already calculated \(\frac{r-d}{r} = \cos \beta\).

Code:

01: 15 33 :    RAD
02: 24 01 :    RCL 1
03: 21    :    x<>y
04: 41    :    -
05: 24 01 :    RCL 1
06: 71    :    ÷
07: 31    :    ENTER
08: 15 05 :    cos⁻¹
09: 23 00 :    STO 0
10: 21    :    x<>y
11: 24 00 :    RCL 0
12: 14 04 :    sin
13: 61    :    ×
14: 41    :    -
15: 24 01 :    RCL 1
16: 15 02 :    x²
17: 61    :    ×
18: 14 74 :    PAUSE
19: 24 00 :    RCL 0
20: 24 01 :    RCL 1
21: 02    :    2
22: 61    :    ×
23: 61    :    ×
24: 71    :    ÷
25: 15 02 :    x²
26: 73    :    .
27: 03    :    3
28: 00    :    0
29: 04    :    4
30: 08    :    8
31: 71    :    ÷
32: 03    :    3
33: 15 22 :    1/x
34: 14 03 :    yˣ
35: 24 03 :    RCL 3
36: 71    :    ÷
37: 24 02 :    RCL 2
38: 14 02 :    √x
39: 61    :    ×
40: 14 74 :    PAUSE
41: 61    :    ×
42: 14 73 :    LASTx
43: 21    :    x<>y
44: 15 32 :    DEG
45: 13 00 :    GTO 00