Algorithme ti83 Résolu/Fermé

Question

Bonsoir,
j'aimerai savoir pourquoi mon algorithme ne fonctionne pas?

Sachant que V(x)= -x^3+4x² sur [0,4]

INITIALISATION: Affecter 8/3 à a ; Affecter 4 à b
     TRAITEMENT: Tant que b-a>10^-6 Faire
                               Si f(a)f((a+b)/2)>0 Alors
                                    Affecter (a+b)/2 à a
                                    Sinon Affecter (a+b)/2 à b
                               Fin Si
                           Fin Tantque
             SORTIE: Afficher a,b


Et j'ai fait:
a sto (8/3)
b sto 4
While b-a>10^-6
If f(a)f((a+b)/2)>0
a sto (a+b)/2
Else
b sto (a+b)/2
End
Disp a
Disp b


Merci d'avance

ccm81 · Answer

bonsoir 

1. quelques erreurs de syntaxe avec sto 
2. Il manque un End 
3. Mettre la fonction f en Y1 
4. f(a) sera alors donné par Y1(A) où Y1 est obtenu avec le menu 
VARS/YVars/Function 
5. utiliser le test du While avec la valeur absolue

(8/3)  sto A 
4 sto B 
While abs(B-A)>10^-6 
If Y1(A)*Y1((A+B)/2)>0 
 (A+B)/2 sto A 
Else 
 (A+B)/2 sto B 
End 
End 
Disp A 
Disp B 

bon courage

ccm81 · Answer

désole il manque un then après le test if ... >0

ccm81 · Answer

ce programme fonctionne sur ma TI83  

(8/3) sto A  
4 sto B  
While abs(B-A)>0.001  
If Y1(A)*Y1((A+B)/2)>0  
Then
(A+B)/2 sto A  
Else  
(A+B)/2 sto B  
End  
End  
Disp A  
Disp B   

1. as tu bien défini et utilisé Y1 comme indiqué plus haut  
2. as tu bien ajouté le Then manquant  
3. lorsque le programme plante, avec Goto tu as accès à la ligne où se situe (en principe) l'erreur  
4. as tu pris la fonction abs dans MATH/NUM  
5.3 dans le test j'ai mis 0.001 à la place de E10-6 pour accélerer l'exécution

bonne suite

Algorithme ti83

3 réponses

Discussions similaires