HP50G Bisection methode

[Gilles]

(07-24-2015 12:01 PM)tigger Wrote:  I would like to program the Bisection Methode.
Is there anybody who can help me with it.

Hi

It seems there is a problem with your example as there is no root for this function between 1 and 2

here is an example (not optimised), in RPL, aprox mode with a modified function (X^5-5) :

Code:

'F(X)=X^5-5' DEFINE
 1. 2.
 
« 
 IF OVER F OVER F > THEN SWAP END
 0. -> A B C
 « 
  DO
   A B + 2. / DUP 'C' STO  
   IF 'F(C)<0' THEN 'A' STO ELSE 'B' STO END
  UNTIL 'ABS(F(C))<0.01' END
  C
 »
»