Gamme TI-82


Poster un nouveau sujet Poster une réponse
aide
Auteur Message
morgan7



Autorisation : Membre
Nb de messages : 2
Inscrit le : Jeu 17 Jan 2013, 14:25
Posté le : Jeu 17 Jan 2013, 14:28   Citer 

Bonjour , concernant le programme pour trouver la mesure principale d'un angle :


Principa Compatible TI-82/TI-82 STATS

http://tout82.free.fr

-------------------------------------
-------------------------------------


Code
:ClrHome
:Disp "A[Pi]/B RAD"
:Input "A ",A
:Input "B ",B
:iPart (A/B) -> C
:A-(B*C) -> D
:D/B -> E
:If (B/2)=(iPart (B/2))
:Then
:B/2 -> F
:B/2 -> G
:Else
:(B-1)/2 -> F
:(B+1)/2 -> G
:End
:E+B-(2f) -> H
:E+B-(2G) -> I
:A/B -> J
:ClrHome
:Disp "UNE MESURE EST",J>Frac,"[Pi] RAD"
:Disp "LA MESURE PRINCIPALE EST"
:If H>-1 and H[inférieur ou égal à]1
:Then
:Disp H>Frac,"[Pi] RAD"
:Else
:Disp I>Frac, "[Pi] RAD"
:End
:Pause
:ClrHome




Où trouve t-on le "ipart" de la 5e ligne ? merci bigmouth.gif

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3772
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 17 Jan 2013, 15:07   Citer 

iPart() est dans le menu math.
Si tu as une ti82statfr, remplace par ent().

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
morgan7



Autorisation : Membre
Nb de messages : 2
Inscrit le : Jeu 17 Jan 2013, 14:25
Posté le : Jeu 17 Jan 2013, 23:18   Citer 

Merci bcp et je mets quoi pour " and H[inférieur ou égal à]1" de la 22e ligne ? happy.gif

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3772
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Ven 18 Jan 2013, 0:34   Citer 

and : 2nde+math+droite
H: alpha+H
[inférieur ou égal à] : 2nde+math

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
ericjoseph
Invité
Posté le : Mer 28 Mai 2014, 3:45   Citer 

Bonjour, j’ai apparemment tout rentré :

Code
: EffEcr
: Disp "A[Pi]/B RAD"
: Input "A ",A
: Input "B ",B
: ent(A/B)->C
: A-(B*C)->D
: D/B->E
: If (B/2)=(ent(B/2))
: Then
: B/2->F
: B/2->G
: Else
: (B-1)/2->F
: (B+1)/2->G
: End
: E+B-(2F)->H
: E+B-(2G)->I
: A/B->J
: EffEcr
: Disp "UNE MESURE EST",J>Frac,"[Pi] RAD"
: Disp "LA MESURE PRINCIPALE EST"
: If H>-1 et H[inférieur ou égal]1
: Then
: Disp H>Frac,"[Pi] RAD"
: Else
: Disp I>Frac, "[Pi] RAD"
: End
: Pause
: EffEcr


Mais le programme ne donne pas les bons résultats :
- Pour 140[Pi]/3 il me donne 0 et 5/3 au lieu de 140/3 et 2/3
- Et pour 295[Pi]/4 il me donne 0 et 3/4 au lieu de 295/4 et -1/4
Merci de m’aider à trouver le problème.
godgrace.gif

  Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
linkakro



Autorisation : Membre
Nb de messages : 3772
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 28 Mai 2014, 19:56   Citer 

Je ne sais pas. Tu es mieux placé pour ajouter des affichages et alors trouver où c'est faux.
Pas d'erreur sur iPart/ent semble-t-il.

Problème sans fraction résolu et des explications dans le sujet suivant.
http://tout82.free.fr/forum/sujet.php?message=49876#49876

Pour tes fractions, voici le procédé.

Code
ClrHome    // EffEcr
Disp "A[Pi]/B RAD"
Prompt A,B
int(A/(2B->K    // int=partEnt
A-2BK->R
If R>B
Then
K+1->K
R-2B->R
End
Disp "A/B=2K+R/B","K",K,"R",R,"B"
Pause B

Dans tous les cas A=2BK+R d'où A/B=2K+R/B. Au début 0<=R/B<2. Quand on soustrait 2*B à R et incrémente K à la condition R>B, on obtient la même équation de A mais -1<R/B<=1.
En multipliant tout par PI on a bien la définition de l'angle principal -PI<X<=PI.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
ericjoseph
Invité
Posté le : Jeu 29 Mai 2014, 17:38   Citer 

Ok merci!
Il me manquait la ligne A/B->J d'où les zéros pour l'affichage d'une mesure de l'angle. Par contre pour l'erreur sur la mesure principale je ne vois pas.
Mais je suis en train de faire une autre méthode avec la fonction arrondi(
Je m'y remets ce soir et dès que je termine, si ça fonctionne je posterai le prog.
À + et merci

  Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3772
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 29 Mai 2014, 18:07   Citer 

Utilise la fonction >Frac pour l'affichage des fractions. Les algorithmes en TI-Basic utilisant la fonction Arrondi/Round ne sont pas assez fiable.

Le problème est déjà résolu avec mon programme plus simple dans mon message précédent.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2019 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink