(33E) Stream Flow Estimate in Culverts

[Thomas Klemm]

(03-09-2019 06:57 PM)Dieter Wrote:  1. This program will not work on the HP25 as the latter features no D–>R degrees to radians conversion.

You can add RAD at the begin of the program and remove these two lines:

Code:

09 ->RAD
26 ->RAD

Edit: Just noticed that you realised this meanwhile.

Quote:BTW the conversion constant actually is 0,3048^–1/3 = 1,4859...
If you manage to squeeze out one more step (which is possible) you can replace that 1,49 with the more exact value 1,486. ;-)

We can even use 1.4859 with the HP-25:

Code:

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

With this I get for your example:

2 [R/S]
"8,25"
"9,43"
77,77

3,5 [R/S]
"17,12"
"12,19"
208,65

Quote:If two more steps can be squeezed out (e.g. in the metric version) simply add [LastX] [X⇄Y] as the final steps and all three values are nicely returned on the stack.

Code:

10 RCL 1
11 x^2
12 *
13 RCL 1
14 x^2

What about:

Code:

10 RCL 1
11 x^2
12 *
13 LASTx

Cheers
Thomas