%% auteur : gh 150 setxunit 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 setlinewidth bleu O 1 cercle rouge [M O] ligne A O M .2 (-) tripointarc $$ \alpha $$ .2 .07 [2 2] crtexlabel vert [O A] ligne [O B] ligne [I C] ligne 1 setlinewidth pointilles [A M] ligne [B M] ligne [M C] ligne $$ \cos \alpha $$ .5 -.1 [2 2] cctexlabel $$ \sin \alpha $$ -.2 .2 [2 2] cctexlabel $$ \tan \alpha $$ 1.1 .3 [2 2] crtexlabel noir setTimesItalic (O) O drtext