%% auteur : 25 setxunit 7.5 setborder 90 setangle_repere -1.5 1.5 setxrange -1.5 1.5 setyrange 80 setxunit 80 setyunit tracerepere setTimes /O{0 0} def O point (O) O urtext /cerc {O 1} def cerc cercle /I{1 0} def I point (I) I urtext /J{0 1} def J point (J) J ultext /X {I O 150 rotatepoint} def X dashpoint (X) X ultext /-X {I O -150 rotatepoint} def -X dashpoint (-X) -X cltext O X (->) line O -X (->) line $$ cos (x) $$ /A{-0.4 0} def A ultexlabel