Arctangent function program [HP-42S, Free42]

[Gerson W. Barbosa]

(09-14-2024 10:37 PM)Thomas Klemm Wrote:  Here's the program for the HP-12C:

Code:

01 {       01 } 1
02 {       05 } 5
03 {    44 00 } STO O
04 {       35 } CLx
05 {       36 } ENTER
06 {       01 } 1
07 { 44 30 00 } STO - 0
08 {       40 } +
09 {    45 00 } RCL 0
10 {    43 35 } x=0
11 { 43 33 23 } GTO 23
12 {       02 } 2
13 {       20 } *
14 {       40 } +
15 {       34 } X<=>Y
16 {    45 00 } RCL 0
17 {       20 } *
18 {       36 } ENTER
19 {       20 } *
20 {       34 } X<=>Y
21 {       10 } /
22 { 43 33 06 } GTO 06
23 {       33 } Rv
24 {       10 } /

Significantly shorter, but again about 17 seconds on my older 12C. Do we really need 15 iterations? 13 appear to be just fine. Timing down to ~ 14.5 seconds.