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
