Arctangent function program [HP-42S, Free42]

[Thomas Klemm]

(09-14-2024 04:41 PM)Gerson W. Barbosa Wrote:  A question still remains: would the program take up less steps if implemented according to the original formula?

This is what I came up with:

Code:

00 { 39-Byte Prgm }
01▸LBL "ATN"
02 43
03 X<>Y
04 0
05▸LBL 00
06 2
07 RCL× ST T
08 +
09 1
10 +
11 RCL ST Z
12 RCL× ST Z
13 X↑2
14 X<>Y
15 ÷
16 DSE ST Z
17 GTO 00
18 1
19 +
20 ÷
21 END