(11C) Tree Heights

[Dieter]

(11-04-2018 03:32 PM)Thomas Klemm Wrote:  We don't really need trigonometric functions here.
Good old Pythagoras is good enough:

Great! This way it can also be done on the 12C and other calculators without trigs or polar/rectangular conversion:

Code:

01 X<>Y
02 -
03 LstX
04 ENTER
05 x
06 EEX
07 4
08 +
09 √x
10 ÷
11 ×
12 GTO 00

Since no →P is required this may even run slightly faster than Thomas' original version. If available, replace "ENTER x" with x².

(11-04-2018 03:32 PM)Thomas Klemm Wrote:  Examples:

56 ENTER
20 ENTER
40 A
10.9825

56 ENTER
-20 ENTER
40 A
32.9475

Same for the above version. Press [R/S] instead of [A]. ;-)

I you, like me, prefer to enter base distance [ENTER] tip slope [ENTER] base slope, simply remove the first line.

Gamo, if you want to implement this for the 11C using the label keys A...D, here is an adapted version:

Code:

01 LBL A
02 STO 1
03 RTN
04 LBL B
05 STO 2
06 RTN
07 LBL C
08 STO 3
09 RTN
10 LBL D
11 RCL 3
12 RCL 2
13 -
14 RCL 2
15 x²
16 EEX
17 4
18 +
19 √x
20 ÷
21 RCL 1
22 x
23 RTN

This thread shows once again how a new approach and a bit of better mathematical insight can substantially improve a given solution. So don't adapt programs or algorithms, rethink the problem and realize your own solution. Or "dare to think for yourself", as others have put it.

Dieter