Arctangent function program [HP-42S, Free42]

[Thomas Klemm]

Instead of using



we could use



This makes the program a bit shorter at the cost of an additional register:

Code:

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