[Résolu] Programme tout simple ... qui marche pas Oo ...

→ **MyCalcs** profile · by **Lén** » 22 Oct 2009, 17:23

Salut !
Je me suis fait un petit programme tout simple sur ma 82 stats et j'ai voulu l'adapter sur ma ti89titanium .... manque de pot ça marche pas !

Code Ti82 Stats

Code: Select all: ClrHome Input "UR=",R Input "UX=",X Input "V=",V Input "ANGLE=",A A*PI/180 sto B racine((Vcos(B)+R)²+(Vsin(B)+X)² sto C Output(5,1,"EV=" Output(5,4,C

Code Ti89 Titanium

Code: Select all: kapp(r,x,v,a) Func approx(a*PI/180) sto a racine((v*cos(a)+r)^2+(v*sin(a)+r)^2) EndFunc

Lorsque je rentre 110, 660, 1500, 37 dans le premier, Ev =2040 (a peu près) alors que dans la version 89 il m'affiche un tout autre résultat, or en regardant dans mon exercice, c'est le programme de la 82 qui a raison !

Où ais-je fait faux ?

→ **MyCalcs** profile · by **Marco** » 22 Oct 2009, 17:59

Salut,
C'est normal que tu ais mis deux fois cos et r ici ?

Code: Select all: racine((v*cos(a)+r)^2+(v*cos(a)+r)^2)»c

La formule n'est pas la même que sur ton programme de 82.

Donc ici je mettrais :

Code: Select all: racine((v*cos(a)+r)^2+(v*sin(a)+x)^2)»c

→ **MyCalcs** profile · by **Lén** » 22 Oct 2009, 18:45

Non c'est une faute en recopiant ! j'ai éditer mon message ! merci

.... bientôt 3h pour un pauvre programme basic

EDIT: et en plus le c était aussi une faute de frappe ^^

→ **MyCalcs** profile · by **Marco** » 22 Oct 2009, 18:57

Tu as toujours deux formules différentes avec x et r...
Tu peux nous dire ce qu'affiche la 89 sur l'exemple que tu as donné ?

→ **MyCalcs** profile · by **Lén** » 22 Oct 2009, 18:59

Elle affiche 1746 est des poussières ^^

Aprés plusieurs essais ... j'ai l'impression que mes valeurs tels que 110 devient 220 Dans la racine !

Pourtant en décomposant le calcul tout est niquel ... jusqu'a la racine ^^

→ **MyCalcs** profile · by **Marco** » 22 Oct 2009, 19:04

Bon j'ai trouvé la solution à ton problème après vérification des valeurs : dans le premier cas, tu es en mode radian et dans le deuxième en mode degree.
La solution la plus simple c'est :

Code: Select all: kapp(r,x,v,a) Func racine((v*cos(a°)+r)^2+(v*sin(a°)+r)^2) EndFunc

car ton utilisation de ce programme semble se limiter à des calculs à partir de degrés.

→ **MyCalcs** profile · by **Lén** » 22 Oct 2009, 19:07

Ben je rentre des degré dans a et les convertit en radian pour mon calcul ^^ ...
Quel idiot ... j'avais essayé une autre variante mais j'avais pas cherché plus loin ! merci BEAUCOUP

→ **MyCalcs** profile · by **Marco** » 22 Oct 2009, 19:12

De rien

Sinon tu dois pouvoir modifier le mode par défaut (degré/radian) de la calculatrice (cf. manuel en pdf page 26).

→ **MyCalcs** profile · by **Lén** » 22 Oct 2009, 19:13

Oui oui merci

HS: y'a moyen d'arriver sur home avec son menu custom par défaut ?

→ **MyCalcs** profile · by **Marco** » 22 Oct 2009, 19:21

Je ne pense pas avoir bien saisi la question. Il s'agit de mettre un raccourci vers Home en passant par le menu Custom ?
Je pense pas pouvoir répondre à la question de toute façon car je n'ai pas de 89 ^^.