01-31-2017, 06:06 PM
For real input the programme returns the value of the Lambert w function.
For info see
https://en.wikipedia.org/wiki/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