Poster un nouveau sujet Poster une réponse
Trigonométrie
Auteur Message
Samos



Autorisation : Membre
Nb de messages : 295
Inscrit le : Lun 14 Mai 2012, 18:51
Posté le : Mar 04 Déc 2012, 20:40   Citer 

Et Voilà mon nouveau programme de trigo!
Encore une reprise de l'ancien mais avec plus de fonctions.
Je vous explique rapidement ce que l'on peut faire avec.


-mesure principale
Rentrez la mesure d'angle en radian en simplifiant par Pi et vous aurez sa mesure principales comprise entre [-Pi ; Pi[
-deg>rad
-rad>deg
convertit degrés en radians et inversement
-cos>sin/sin>cos
Donne le sinus ou le cosinus à partir du sinus ou du cosinus
-trace
Donnez une mesure d'angle en radian ou en degré et vous aurez sa représentation graphique
-solutions
trouve les solutions d'angles à partir de mesures principales sur un intervalle que vous choisissez.
il faut simplier par Pi
Si vous souhaitez faire les mesures d'angle en degré, simplifiez par 180 ou changez l'intervalle.


Exemple:


Code

En entrée:
{-1,5}
//pour [-Pi,5Pi]

{1/3,2/3}
// pour Pi/3 et 2Pi/3

2
//parce qu'il faut 2 tours de cercle pour retomber sur les mesures

en sortie:

{1/3, 2/3, 7/3, 8/3, 13/3, 14/3}
//une liste comprenant les solutions possibles.




Download

 Adresse email Haut de page Bas de page 
 
Cytropus



Autorisation : Membre
Nb de messages : 407
Inscrit le : Lun 07 Nov 2011, 12:09
Posté le : Mar 04 Déc 2012, 20:57   Citer 

645 octet ! et tu veux même pas le mettre sur le site karate.gif

godgrace.gif @ => tétha


Code
:DelVar XClrHome
:Degree
:Menu("","MESURPRINCIPAL",1,"DEG>RAD",2,"RAD>DEG",3,"COS>SIN/SIN>COS",4,"TRACE",Q,"SOLUTIONS",6,"QUITTER",5
:Lbl 1
:Prompt @
:@-2int(@/2
:Disp "@P",Ans-2(Ans>=1)+2(Ans<-1  >Frac
:Stop
:Lbl 2
:Radian
:1->X
:Lbl 3
:Input "MESURE:",A
:Disp X(A°)/[pi]+not(X)  >Frac
:If X
:Output(2,9,"[pi]*
:Stop
:Lbl 4
:Input "COS/SIN=",X
:Disp 1-X² >Frac
:Output(2,9,"[racine carré]
:Lbl 5
:Stop
:Lbl Q
:ClrDraw
:0->Xmin:1->[delta]X
:0->Ymin:1->[delta]Y
:ClrHome
:FnOff
:AxesOff
:DelVar XMenu("","DEGRE",K,"RADIAN",Z
:Lbl Z
:Radian
:1->X
:Lbl K
:Input "MESURE:",A
:Line(47,31,47+31cos(A),31+31sin(A
:Circle(47,31,31
:Pt-On(47,31,3
:Text(29,1,"[pi]
:Text(29,90,0
:Text(55,39,"-[pi]/2
:Text(3,43,"[pi]/2
:Pause
:FnOn
:AxesOn
:Disp
:Return
:Lbl 6
:Input "INTERVALLE:",L3
:DelVar CDelVar L1Input "ANGLES:",L2
:Input "INCREMENT:",E
:L3(1
:Ans-2fPart(Ans/2
:For(X,Ans-2,L3(2),E
:For(B,1,dim(L2
:X+L2(B
:If Ans>=L3(1) and Ans=<L3(2
:Then
:C+1->C
:X+L2(B->L1(C
:End
:End
:End
:L1 >Frac



----------------------
Le nouveau site de tout82
 Adresse email Haut de page Bas de page 
 
Samos



Autorisation : Membre
Nb de messages : 295
Inscrit le : Lun 14 Mai 2012, 18:51
Posté le : Mer 05 Déc 2012, 13:37   Citer 


Code
:Lbl 4
:Input "COS/SIN=",X
:Disp 1-X² >Frac
:Output(2,9,"[pi]*



Tu es sur d'avoir correctement recopié?
Je ne vois pas ce que fait un Pi dans une histoire de cosinus et de sinus. ( à remplacer par racine)
Si je ne l'ai pas recopié c'est que je n'en ai plus le temps.
En tous cas merci tongue.gif

 Adresse email Haut de page Bas de page 
 
Cytropus



Autorisation : Membre
Nb de messages : 407
Inscrit le : Lun 07 Nov 2011, 12:09
Posté le : Mer 05 Déc 2012, 21:47   Citer 

racine ?
Le signe racine carré ?

----------------------
Le nouveau site de tout82
 Adresse email Haut de page Bas de page 
 
Samos



Autorisation : Membre
Nb de messages : 295
Inscrit le : Lun 14 Mai 2012, 18:51
Posté le : Jeu 06 Déc 2012, 17:53   Citer 

ça semble évident, non?

 Adresse email Haut de page Bas de page 
 
Cytropus



Autorisation : Membre
Nb de messages : 407
Inscrit le : Lun 07 Nov 2011, 12:09
Posté le : Ven 07 Déc 2012, 20:31   Citer 

C'est ton programme, tu fais ce que tu veux godgrace.gif

----------------------
Le nouveau site de tout82
 Adresse email Haut de page Bas de page 
 
Samos



Autorisation : Membre
Nb de messages : 295
Inscrit le : Lun 14 Mai 2012, 18:51
Posté le : Sam 08 Déc 2012, 16:24   Citer 


Citer : Cytropus
C'est ton programme, tu fais ce que tu veux godgrace.gif



D'après ce que j'ai compris tu pense qu'un cosinus ou un sinus a un lien avec Pi?
Tu es en quelle classe?
Si tu n'as pas encore travaillé sur le théorème Pythagore, je te conseil de l'apprendre.

 Adresse email Haut de page Bas de page 
 
Cytropus



Autorisation : Membre
Nb de messages : 407
Inscrit le : Lun 07 Nov 2011, 12:09
Posté le : Dim 09 Déc 2012, 12:14   Citer 


Citer
D'après ce que j'ai compris tu pense qu'un cosinus ou un sinus a un lien avec Pi?



En radian godgrace.gif
cos([pi]/4)=([racine de]2)/2 godgrace.gif


Tu es en quelle classe? godgrace.gif

----------------------
Le nouveau site de tout82
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 09 Déc 2012, 15:26   Citer 

STOP !!!

Il y a une confusion entre
:Output(2,9,"[pi]*
et
:Output(2,9,"[racine carré]

Il semble que quelqu'un ait modifié un message en cours de route car il y a des incohérences avec mes souvenirs de ce sujet.

Avec ce que je voie maintenant, il faut corriger le message de Cytropus :

Code
:Lbl 3
:Input "MESURE:",A
:Disp X(A°)/[pi]+not(X)  >Frac
:If X
:Output(2,9,"[pi]*
:Stop
:Lbl 4
:Input "COS/SIN=",X
:Disp 1-X² >Frac
:Output(2,9,"[racine carré]

Le but est dans un cas de donner cos=pi*a et dans l'autre cos=rac(1-sin²)

----------------------
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 
 
Cytropus



Autorisation : Membre
Nb de messages : 407
Inscrit le : Lun 07 Nov 2011, 12:09
Posté le : Dim 09 Déc 2012, 19:42   Citer 

j'édite winkle.gif

----------------------
Le nouveau site de tout82
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Page générée en 6 requêtes