HP 41C solver problem

[Trond]

(12-07-2017 10:39 AM)Dieter Wrote:  For the time being the original program may be changed like this. It's still not perfect but it does converge. ;-)

Code:

.. ...
35 RCL 06
36 *
37 -
38 STO 04
39 LastX     // last absolute change in x    
40 RCL 04
41 X=0?
42 SIGN      // if x=0 check absolute change (sign(0)=1 on the HP-41)
43 /         // else check relative change
44 ABS
45 1E-8
46 X>Y?
47 GTO 04
48 VIEW 04   // show current approximation
49 RCL 04
50 XEQ IND 03
51 STO 07
52 RCL 06
53 *
54 X>0?
.. ...

I like it! Thanks for the code. Maybe I'll try Anderson-Björk later.