HP50G Bisection methode

[acser]

Here you go:



'F(X)=X^5-5' DEFINE
1 [ENTER]
2 [ENTER]

Use INOUT to get this code into your HP50g
\<<
IF OVER F OVER F > THEN SWAP END
0. 0. \-> A B C FC
\<<
DO A B + 2. / 'C' STO 'F(C)' EVAL 'FC' STO
IF FC 0. \<=
THEN C 'A' STO
END
IF FC 0. \>=
THEN C 'B' STO
END
UNTIL 'ABS(A-B)<.0000001'
END C
\>>
\>>