Dichotomie - CASIO

Casio

Le programme part d'une fonction $f$ et de deux réels $a<b$ tels que $f(a)<0<f(b)$.
Il demande la valeur d'un petit réel $e$ à l'utilisateur.
$e$ représente la précision voulue, typiquement $e$ sera égal à $0,1$ ou $0,01$.
Le programme va ensuite réitérer le principe suivant :
prendre $x=(a+b)/2$
estimer le signe de $f(x)$
si $f(x)$ positif, remplacer $[a,b]$ par $[a,c]$
si $f(x)$ négatif, remplacer $[a,b]$ par $[a,c]$
… jusqu'à ce que $b-a$ soit inférieur à $e$.
Alors, le programme affichera $(a+b)/2$
Dans ce fichier nous prendrons $f(x)=x^2-x-1$, $a=0, b=2$, nous aurons ainsi une valeur approchée du nombre d'or $\Phi=(1+\sqrt 5)/2$

$a,b$, variables, fixent les bornes de l'intervalle de départ,
$x$ qui sera égal à $(a+b)/2$
$e$ rentré par l'utilisateur

|demander $e$
|tant que $b-a>e$

afficher $(a+b)/2$

PROGRAM:

# rentrer par exemple Y1(X)=X^2-X-1 dans le menu Graph
?→E
0→A:2→B
While B-A>E
(A+B)/2→X
If Y1(X)>0 #Le Y s'obtient par VARS,Graph,Y
Then X→B
Else X→A
IfEnd
WhileEnd
(A+B)/2→X
Int(X/E)$^\ast$E

Fonctions de référence