[mOved] Comment dois-je faire? - Page 1

Salut, je souhaite programmer cet algo dans ma ti-83 (algo de la bissection, ou recherche dichotomique)

J'ai une fonction f(x), je cherche à determiner x tel que f(x)=0.
Pour ceci on part d'un intervalle defini où ce situe la solution (ex : [3,4])
On definit :
a=3;
b=4;
40->k
for (k, 1, n)
c=(4*3)/2;
if f(a)*f(c)<0
then
c->b;
else
then
c->a
Affiche(k);
Affiche(c);
Affiche(f(c));

Je veux avoir un resultat (c.a.d incrementer, affiner ma solution) à chaque fois que j'appuye sur enter.
Voilà, c'est assez simple, une 15-20aine de ligne suffit c'est pour ça que je me permet de demander à quelqu'un qui sait programmer su la ti-83.

D'avance merci

ps (pour les admin) : j'ai aussi mis ce post dans la section prog TI,... car je n'avais pas vu cette section pour debutants. DSL

Alors voila :

D'abord ClrHome
Puis : Input "FONCTION:",Str1
Puis : Str1->Y1
a=3; >> Prompt a,b (demande a et b a l'utilisateur)
b=4;
40->k >> Inutile
for (k, 1, n) >> For(k,1,40)
c=(4*3)/2; >> (a+b)/2->c
if Y1(a)*Y1(c)<0 >> OK
then >> OK
c->b; >> OK
else >>OK
then >>à retirer sinon ca bug
c->a >> OK
Inserer : End
Affiche(k); >> Disp "",k,":C=",c,"F(C)=",Y1(c)
Affiche(c);
Affiche(f(c));
Ajouter : End

Str1 et Y1 se trouvent dans VARS.

Voila

Parfait, je te remercie pour avoir consacré du temps sur mon problème, ça marche sans problème!

De rien, je suis content que ca marche bien.