%% auteur : gh

500 setwidth
500 setheight
18 setfontsize
-1.5 1.5 setxrange
-1.5 1.5 setyrange

%% definition des fonctions

tracerepere
marks

/x {3 sqrt 2 div} def
/O {0 0} def
/M {x .5} def
/A {x 0} def
/B {0 0.5} def
/C {1 0.5 x div} def
/I {1 0} def

I C droite

2 setcurvelinewidth

bleu 
O 1 cercle

rouge
[M O] ligne
A O M .2 (-) tripointarc
<tex> 
$$
 \alpha
$$ 
</tex> 
.2 .07 [2 2] crtexlabel 


vert
[O A] ligne
[O B] ligne
[I C] ligne
1 setcurvelinewidth
pointilles
[A M] ligne
[B M] ligne
[M C] ligne


<tex> 
$$
   \cos \alpha
$$ 
</tex> 
.5 -.1 [2 2] cctexlabel 

<tex> 
$$
   \sin \alpha
$$ 
</tex> 
-.2 .2 [2 2] cctexlabel 

<tex> 
$$
   \tan \alpha
$$ 
</tex> 
1.1 .3 [2 2] crtexlabel 

noir

setTimesItalic 
   (O) O drtext