Lambert W Function (hp-42s)

[J-F Garnier]

(05-17-2020 07:56 AM)Werner Wrote:  

Code:

00 { 36-Byte Prgm }
01*LBL "W"
02 FC? 45
03 GTO 00
...
10*LBL 00
11 PGMSLV "W"
12 LSTO "W"
13 CLX
14 LSTO "X"
15 10
16 SOLVE "X"
17 END

Nice use of flag 45.

Of course, LSTO doesn't exist on the HP-42S.

J-F