(33E) Stream Flow Estimate in Culverts

[Dieter]

(03-10-2019 10:19 PM)Thomas Klemm Wrote:  Or rather extract \(r^2\):

Good idea – but it can be done with one step less:

Code:

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

Will it get any better ?-)

Dieter