Présentation de angles_cercle.jps

%% 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