Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Dim 22 Mai 2011, 12:42
Bonjour/bonsoir
Voici un petit programme que j'aais fais à la demande d'un ami:
il permet, si vous la valeur exacte d'un cossinus ou d'un sinus de vous donner les deux valeures de x possible tel que cos(x )=nombre ou sin(x )=nombre. Utile si en fin d'équations on à cos(x )=0.5 par example
Code
:Radian
:FnOff
:PlotsOff
:.5 -> Xmax
:-1.5 -> Xmin
:.1 -> Xscl
:1 -> Ymax
:-1 -> Ymin
:.1 -> Yscl
:ZSquare
:AxesOn
:Lbl 1
:ClrDraw
:Menu("CHOISIR:","COS",CS,"SIN",SN,"QUITTER",Q
:Lbl CS
:Input "VALEUR DU COS : ",Str1
:expr(Str1 -> X
:arccos(X -> A
:Circle(0,0,1
:sin(A -> C
:Line(X,C,0,0
:Line(X,-C,0,0
:Pt-On(X,C,3
:Pt-On(X-C,3
:-A -> B
:Text(1,1,"cos(X)=
:Text(8,1,Str1
:A/[pi] -> A
:B/[pi] -> B
:Text(40,5,"X=[pi]*
:Text(48,1,A
:Text(54,1,B
:Pause
:ClrHome
:Disp "cos(X)="+Str1,"ANGLE[r du menu angle] A MULTIPL","IER PAR [pi]",A>Frac,B>Frac
:Pause
:Goto 1
:Lbl SN
:Input "VALEUR DU SINUS:",Str1
:expr(Str1 -> X
:arcsin(X -> A
:Circle(0,0,1
:cos(A -> C
:Line(C,X,0,0
:Line(-C,X,0,0
:Pt-On(C,X,3
:Pt-On(-C,X,3
:[pi]-A -> B
:If B>[pi]
:B-2[pi] -> B
:Text(1,1,"sin(X)=
:Text(8,1,Str1
:A/[pi] -> A
:B/[pi] -> B
:Text(40,5,"X=[pi]*
:Text(48,1,A
:Text(54,1,B
:Pause
:ClrHome
:Disp "sin(X)="+Str1,"ANGLE[r du menu angle] A MULTIPL","IER PAR [pi]",A>Frac,B>Frac
:Pause
:Goto 1
:Lbl Q
Sandro
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
---------------------- 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 : 79
Inscrit le : Dim 15 Mai 2011, 11:33
Posté le : Dim 29 Mai 2011, 9:52
Très bien!
N'oublie pas de préciser que les valeurs données sont à 2kpi près, k parcourant Z; on demandera souvent dans les énoncés la valeur principale, mais parfois il peut être utile de rajouter + ou - 2kpi...
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Dim 29 Mai 2011, 9:58
Ta peut-être raison que le +k*2pi pourrait être rajouté mais j'ai créé ce prog pour un copain qui bloquait sur des équations définies sur [-pi:pi]
parcontre on ne dit pas "k parcourant Z" mais "k appartenant à Z" ou "k, un nombre entier relatif"
Sandro
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
Autorisation : Membre
Nb de messages : 79
Inscrit le : Dim 15 Mai 2011, 11:33
Posté le : Dim 29 Mai 2011, 10:09
Pour être plus précis, mathématiquement, on dit
Enfin bref très utile ce programme pour la trigo, dommage qu'elle ne soit pas au programme du DS bilan sur l'année de première :snif:
