Autorisation : Membre
Nb de messages : 295
Inscrit le : Lun 14 Mai 2012, 18:51
Posté le : Mar 15 Mai 2012, 17:47
Bonjour,
Je débute dans la programmation sur TI-82stats.fr et je souhaiterai partager mes programmes afin de les améliorer mais également d'en apprendre un peu plus.
Voici un programme sur la trigonométrie de cercle il permet de trouver la mesure principale de thêta et de convertir radians et degrés.
Merci de vos réponses
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mar 15 Mai 2012, 19:13
Code
:EffEcr
:Menu("TRIGONOMETRIE"'"MESURPRINCIPAL",1,"RADIAN",2,"DEGRES",3,"QUITTER",4
:Lbl 1
:Input "Pi*",O // pour bien montrer qu'on veut la fraction de Pi et en radian
:PartEnt(O/2
:O-2Rép->Z
:If Z>1 // Z>1 est plus logique et ça correspond à mon programme
:Z-2->Z // pas besoin de Then/else
:Disp "PRINCIPAL=",Z>Frac // pas besoin de le répéter
:Stop
:Lbl 2
// ce sont des angles qu'on convertit donc pas besoin de saisir le rayon
:Input "DEG=",A
:Disp "RAD=",A(Pi)/180
:Stop
:Lbl 3
:Input "RAD=",A
:Disp "DEG=",A180/(Pi)>Frac
:Stop
:Lbl 4
:EffEcr
:Stop
Fais attention aux parenthèses. Remplace A360/2(Pi) par :A360/(2(Pi)) ou bien :A180/(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)
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 16 Mai 2012, 0:10
Que signifie "Op" si ce n'est pas "mesure principale" ?
A=(B*2+R)*Pi
La division effectuée avec partEnt() donne toujours un reste positif : 0<=R<2
R*Pi n'est principal que si -1<R<=1
Si -1<0<=R<=1<2 alors la mesure R*Pi est principale.
Si -1<0<1<R<2 alors la mesure R*Pi n'est pas principale, et il suffit de soustraire 2 à Z.
---------------------- 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)
. Mais il me semble que Op appartient à l'intervalle [-pi ; pi[ pour Z>1