Problème de programmation sur TI 83+ (TI basic)

**Xywez**

Pout l'affichage des valeurs de départ à la fin sufit de mettre

Code:

:A->U
:B->I
:C->O

Et de faire afficher U, I ou O respectivement à la place de A, B ou C
Tout con ^^

Et pour l'output de la fin, c'est

Code:

Output(1,1,"

En fait , les valeur sont 1 puis 1 puis " (guillement)

C'est tout simplement un raccourcit car on ferme pas les guillement et les parenthèse inutile car si on fermait tout, sa nous ferais

Code:

Output(1,1,"")

Plus traditionel la loool

sinon c'est pareil, y des truc qu'on peut enlever dans ton programmes pour diminuer la taille (regarde les petit changements surtout sur les " et les parenthèses)

Code:

:ClrHome
:Imput "F(x) = ",Str1
:Str1 -> Y1
:ClrHome
:Disp "Borne inf les guillemets de fermeture servent à rien ici
:Imput "A = ",A
:Disp "Borne sup idem
:Imput "B = ",B
:Disp "Pas idem
:Imput "P = ",P
:ClrHome
:1->R :A->U :B->I :C->O
:While R>P
:(A+B)/2 ->C
:If Y1(A)*Y1(C)<0
:Then
:C ->B
:abs(C-A ->R la parenthèsede fermeture sert à rien ici
:Else
:C ->A
:abs(C-B ->R la parenthèsede fermeture sert à rien ici
:End :End économide d'une ligne pour la lisibilité du code
:Disp "Solution entre U et I",O
:ClrHome
:Delvar Str1
:DelvarA DelvarB DelvarC DelvarR
:OUtput(1,1,"

Après avec l'habitude tu sais sur lesquels tu peut tricher (mais dans un gros programme, ceci répéter plein de fois, sa fini par faire pas mal d'octets en moins XD)

Comment le pas peut passer de P à D on utilise pas de varible D t'es sur de toi ???

NB : j'ai fais le truc de l'affichage à la fin en passant

Thibo

nan ce que je disais c'est juste que tu as rentrer P et qu'ensuite tu utilisais D dans les calcul ce qui pose des problème (remarque fort peu judicieuse vu que j'ai fais la même chose -_-)
Pour les Parenthèses etc je connaissais pas :)

charognard

Code:

:1->R :A->U :B->I
:While R>P
:(A+B)/2 ->C
:If Y1(A)*Y1(C)<0
:Then
:C ->B
:abs(C-A ->R la parenthèsede fermeture sert à rien ici
:Else
:C ->A
:abs(C-B ->R la parenthèsede fermeture sert à rien ici
:End :End économide d'une ligne pour la lisibilité du code
:Disp "Solution entre A et B",C 'LA LE PROBLEME
:ClrHome
:Delvar Str1
:DelvarA DelvarB DelvarC DelvarR
:OUtput(1,1,"

sinon ça va pas donner grand chose

**Xywez**

a toujours pas comprendu...

Thibo

de quoi ?
Perso pas vu ce qu'a changé charognard en faite xD

**Xywez**

Moi non plus...

mais sinon j'ai toujours pas compris le D sors d'ou ??? j'utilise pas de D dans le code !!!!

charognard

Disp "Solution entre U et I",O

le O il est calculer où ????

**Xywez**

c'est la valeur initiale de C

:1->R :A->U :B->I :C->O

charognard

Xywez a écrit:

c'est la valeur initiale de C

:1->R :A->U :B->I :C->O

O=0 donc !!!! regarde un peu

bref ton prog retourne toujours 0, si tel est le but je le fais en moins de ligne

**Xywez**

a bon tu la tapé ?

charognard

Xywez a écrit:

a bon tu la tapé ?

euh .... non !!!!

**Xywez**

A oui escuse car sa doit etre P la varible qui se stocke dans O pas C dsl, petite erreur effectivement

charognard

P ???? c'est le pas que tu rentre aucun interet non plus d'avoir comme solution la variable que tu saisie.
pour moi C est la solution.

de plus pourquoi stocker P dans O ?

pourquoi aussi 1 dans R au depart ?, si le pas demandé est superieur ou = à 1 (rare mais possible pour les grandes plages) ton programme ne fonctionne pas

**Xywez**

effectivement je suis aller trop vite dans al sovegarde de A et B t'as raison, faut pas remplacer C

Ensuite c'est vrai pour R,

adaptation qui corrige tout sa :

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 R<1:1->R
:A->U :B->I
:While R>P
:(A+B)/2 ->C
:If Y1(A)*Y1(C)<0
:Then
:C ->B
:abs(C-A ->R
:Else
:C ->A
:abs(C-B ->R
:End :End
:Disp "Solution entre U et I",C
:ClrHome
:Delvar Str1
:DelvarA DelvarB DelvarC DelvarR
:Output(1,1,"

Je crois que c'est pas mal là non ?

charognard

De plus c'est pas tout:
imaginons que entre A et B il y a plus que 1 solution (possible même si on ne le voit pas sur l'écran de la caltoches).
bien sur ces deux solutions sont distantes au moins du pas
et bien le programme en trouve qu'une !!!

autre chose : une partie de la fonction est sur l'axe X (Y=0) (certaine fonctions logiques peuvent données ce résultat, par exemple une tension redressée)
et bien arbitrairement le programme trouvera une seule est unique solution

exemple f(x)=|sin(x)|-sin(x)