Dichotomie - TI

Théorie :
Si $f$ continue sur $[a,b]$ avec $f(a)<0$, alors le théorème des valeurs intermédiaires affirme qu'il existe (au moins) un réel $c$ dans $]a,b[$ tel que $f(c)=0$.

Le programme part d'une fonction $f$ et de deux réels $a$ tels que $f(a)<0$.
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$

>

0f(x)>0 alors $b$ prend la valeur $x$>>

> afficher $(a+b)/2$

PROGRAM:

Prompt E
0→A:2→B
While B-A>E
(A+B)/2→X
If Y1(X)>0
Then X→B
Else X→A
End
End
(A+B)/2→X
Disp Int(X/E)*E