(33E) Stream Flow Estimate in Culverts

[Dieter]

(03-10-2019 01:53 PM)Dieter Wrote:  And finally there is even one unused step left. Add your preferred display format if you like.

Or use it to free one more data register.
The following version no longer stores the input in R0, instead R0 is now used for the calculated angle which up to now was stored in R4.

Code:

01 RAD
02 ENTER
03 ENTER
04 RCL 1
05 X<>Y
06 -
07 RCL 1
08 /
09 COS-1
10 STO 0
11 RCL 1
12 *
13 X<>Y
14 RCL 1
15 -
16 RCL 0
17 SIN
18 *
19 +
20 RCL 1
21 *
22 PAUSE
23 RCL 0
24 RCL 1
25 2
26 *
27 *
28 /
29 x^2
30 .
31 3
32 0
33 4
34 8
35 /
36 3
37 1/x
38 Y^X
39 RCL 3
40 /
41 RCL 2
42 SQRT
43 *
44 PAUSE
45 *
46 LastX
47 X<>Y
48 DEG
49 GTO 00

Everything else works as in the previous version.

Dieter