@charognard : oui mais bon ça on s'en fou c'est pas dans le programme :)
le but du programme et de calculer la solution une fois qu'on c'est qu'il y'en a une ( étude fonction ocntinue croissante ou décroissante sur [A;B] avec f(A) <0 et f(B)>0 ( TVI :p ) en gros programme de term S quoi xD)
1 -> R au début car le pas est toujours <1 (10^-...) de là venait mon erreur et oui j'avais 0 dans R donc le programme se stoppait immédiattement voila (l'objectif de la dichotomie et de se raprocher de la solution et divisant par deux l'intervalle a chaque fois et le test qui donnne R et en faite juste le calcul de la taille de l'intervalle donc l'objectif et de l'avoir le plus petit possible)

j'espère que ça répond a tes interrogations :)

@Xywez : dans la page deux tu mets

Code:

:Disp "Pas :Imput "P = ",P

et ensuite dans le calcul :

Code:

:While R>D

erreur d'étourderie je pense sinn le programme marche niquel sur ça dernière mouture :)

Je te remercie pour ton explication sur la dichotomie mais j'en avais déjà une certaine notion

Alors voyons maintenant l'utilisation de cette merveilleuse notion au sein de ton programme.

prenons une fonction simple genre : f(x)=2-x
comme bornes a=-1 et b=3 et comme pas 10E-10

Si la solution parait évidente pour tout élève de terminal dépassant le 3 de moyenne, qu'en est t'il donc de ton programme à dichotomie transcendantale ?

de plus

ce bout de code

Code:

:If Y1(A)*Y1(C)<0 :Then :C ->B :abs(C-A ->R :Else :C ->A :abs(C-B ->R :End

peut etre changé en

Code:

:If Y1(A)*Y1(C)<0 :Then :C ->B :Else :C ->A :End :abs(A-B)->R

ça

Code:

:If R<1:1->R

en ça, le test ne sert à rien

Code:

1->R

et pour plus de clarté

Code:

Disp "Solution entre U et I",C

en

Code:

Disp "Solution entre A et B",C

on saisie en effet les bornes A et B et pas U et I

@Thibo

Oui oui dsl biensur ^^

@Charognrard

C'est vrai j'avais pas pensé à sa

Effectivement pour le changement du 1er bout de code, c'est plus légé
Par contre pour le 2e, le test c'était pour esquiver le cas que t'avais souligner ou le pas était supérieur à 1 car si on fais pas le test, le pas de 1,5 par exemple est réduit automatiquement à 1 là...

Et pour la fin, effectivement avec les disp, sa sert à rien de mettre U et I
J'ai oublié de dire, faut faire comme sa sinon :

Code:

Output(x,y,"Solutions entre",U,"et",A Disp C

Sinon c'est clair que sa sert à rien

_________________
:( c'est la fin des vacances :(

le pas c'est "P" pas "R" ..... désolé

bon ok je met suis encore mélangé le pinceau dans les varaibles XD

ça fait beaucoup
tiens encore une

Code:

Output(x,y,"Solutions entre",U,"et",A Disp C

c'est entre U et I

de plus il va bien valoir modifier ce code là pour que le resultat de f(x)=2-x ne soit plus 3

Code:

:If Y1(A)*Y1(C)<0 :Then :C ->B :Else :C ->A :End :abs(A-B)->R

bonne continuation, je te surveille

Attend je repost la dernière version du code et je regarde le truc

Code:

:ClrHome :Imput "F(x) = ",Str1 :Str1 -> Y1 :ClrHome :Disp "Borne inf :Imput "A = ",A :Disp "Borne sup :Imput "B = ",B :Disp "Pas :Imput "P = ",P :ClrHome :If P<1:1->P :A->U :B->I :While R>P :(A+B)/2 ->C :If Y1(A)*Y1(C)<0 :Then :C ->B :Else :C ->A :End :abs(A-B)->R :End :Output(x,y,"Solutions entre",U,"et",I :Disp C :ClrHome :Delvar Str1 :DelvarA DelvarB DelvarC DelvarR :Output(1,1,"

_________________
:( c'est la fin des vacances :(

Non bon sa va pas du tout du tout ce code en fait, voila le nouveau : ici (je l'ai mis sur bank)

Code:

ClrHome Disp "    Equation"," Input "F(X)= ",Str1 Str1-> Y0 ClrHome Disp " Interval [A,B]"," Input "A= ",A ClrHome Disp "Pas :"," Input H ClrHome Output(1,1,"Calcul... A->X While Y0(A)*Y0(X)>0 X+H->X End ClrHome Output(1,1,"F(x)=" Output(1,6,Str1 Output(2,1,"Pas : Output(2,7,H Output(4,1,"Solution entre : Output(6,1,"et Disp "","","","",X-H,"",X Pause :ClrHome Delvar Str1Delvar Y0Delvar ADelvar BDelvar HDelvar X Output(1,1,"

J'ai pas l'air de mettre trompé dans la traduction du code (oui c'est trop chiant car ti graph link le traduit a moitié en fr puis le copier coller détruit des trucs...)

En tout cas le programme marche à merveille

Et pour ton pas de 10^-10 Charognard, ba sa marche théoriquement mais en fait la ti met un peu trop de temps à calculer donc on à l'impression que sa beug...

Mais de toute facon on demande pas de calculer avec un tel pas XD

_________________
:( c'est la fin des vacances :(

pour X-2 j'avou que c'est bizarre mais bon en même temps on va pas s'ammuser a résoudre x-2=0 par dichotimie on a un moyen plus simple hein ^-^

oui mais sa veux dire que le programme se trompera parfois et qu'il est pas fiable...

à part que là c'est plus du tout par dichotomie mais itératif. et donc il faut largement plus de temps et c'est pour cela que tu as le plantage à 10^10

DONC REVOIR ENCORE TA COPIE

IL FAUT QUE CELA SOIT DICHOTOMIQUE !!!

tu n'est pas trop loin

une piste :
ajoute une condition dans le test if then else de la premiere version

j'ai l'impression corrige moi si je me trompe que le bug vient du fait que la plage de recherche a une borne négative et une positive nan ?

Par ocntre je vois absolument aps comment corriger ça -_-

(ou alors peut faire la résolution en décomposant la plage en deux (-1 ->0 puis 0->3)) enfin je sais pas -_-

Ouai mais a mon avis le problème du prog c'est la constante R qui est pas définie au départ, soit le prog rentre pas dans la boucle soit il y reste trop...

(je l'avais taper pour voir)

Charognard --> c'est vrai ce que tu dis mais au moins il marche ^^

le problème est ici

Code:

:While R>P :(A+B)/2 ->C :If Y1(A)*Y1(C)<0 :Then :C ->B :Else :C ->A :End

vous tester 2 deux uniquement alors qu'il y en a trois
soit <0 soit >0 ou soit =0 et dans ce cas vous avez trouver la solution (c'est une borne) donc on sort de la boucle

allez je vous laisse finaliser