HP50G Bisection methode

[acser]

I was not able to get the code posted here earlier to work.

Checked https://www.math.ubc.ca/~pwalls/math-pyt...bisection/ for the algorithm of bisection.

This worked for me:

<< -> x << x 5 ^ 5 - >> >>
‘F’
STO
[Enter]

1 [Enter]
2 [Enter]

<< 0 -> A B C
<<
DO A B + 2. / DUP ‘C’ STO
IF ‘F(A)*F(C)<0.’ THEN ‘B’ STO END
IF ‘F(B)*F(C)<0.’ THEN ‘A’ STO END
UNTIL ‘ABS(A-B)<0.00000001’
END
C
>>
>>

[Enter]