(33E) Stream Flow Estimate in Culverts

[Thomas Klemm]

(03-09-2019 09:21 PM)Dieter Wrote:  I had the same idea a few minutes ago. Take a look at the listing. ;-)

Or then extract \(r\) in the formula for \(A\):

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

Thus replace lines 10-21 by:

Code:

10: 24 01 :    RCL 1
11: 61    :    ×
12: 24 01 :    RCL 1
13: 24 00 :    RCL 0
14: 41    :    -
15: 24 04 :    RCL 4
16: 14 04 :    sin
17: 61    :    ×
18: 41    :    -
19: 24 01 :    RCL 1
20: 61    :    ×

Cheers
Thomas