Présentation de angles_cercle.jps

/syracuse/var/syracuse/bbgraf/albums/gh/angles_cercle.png
%% auteur : gh 80 setxunit -1 3 setxrange -1 2 setyrange /cosa {pi 6 div Cos} def /sina {pi 6 div Sin} def /cost {pi 3 div Cos} def /sint {pi 3 div Sin} def /O {0 0} def /Omega {cosa sina} def /A {2 cosa mul 2 sina mul} def /u {cost sint} def /M {O u 2 cosa mul mulv addv} def /unites {} def tracerepere O M A angledroit 16 setfontsize setTimesItalic (O) O dltext (M) M uctext setSymbol (W) Omega drtext 10 setfontsize setSymbol (a) 0.25 0.08 cctext (q) 0.35 0.3 cctext (q-a) 0.55 0.45 cctext O Omega droite [O M Omega] points 1 setlinewidth bleu Omega 1 cercle rouge pointilles O M (-) line M A (-) line noir continu 0.5 setlinewidth /arrowangle -10 store 1 0 O Omega 0.2 (->) tripointarc /arrowangle -6 store 1 0 O M 0.4 (->) tripointarc /arrowangle -4 store Omega O M 0.6 (->) tripointarc