(42S) Lambert w Function Programme for Reals

[Gerald H]

For real input the programme returns the value of the Lambert w function.

For info see

https://en.wikipedia.org/wiki/Lambert_W_function

Code:


0.    { 39-Byte Prgm }
1.    LBL “LAM w”
2.    PGMSLV "W"
3.    STO 01
4.    LN
5.    ABS
6.    ENTER
7.    LN
8.    -
9.    STO "W"
10.    SOLVE "W"
11.    R↓
12.    RTN
13.    LBL "W"
14.    RCL "W"
15.    ENTER
16.    E^X
17.    *
18.    RCL- 01
19.    END