%% auteur : Péric 28.45 setxunit -5 6 setxrange -5 5 setyrange 1 1 settkstep 1 1 setmkstep ticks /t {2} def /xmarkstyle {[1.5 dup] dltext} def /ymarkstyle {[1.5 dup] ultext} def 4 xmark 4 ymark -2 ymark -2 xmark traceaxes axesarrow unites /A {-2 2 3 sqrt mul} def /B {2 3 sqrt mul -2} def /O {0 0} def /C {-4 0} def /D {4 0} def /E {A O sympoint} def /an {50} def /l {E D vecteur norme} def /r {l 2 an cos mul div} def /I {D r E r intercercle pop pop } def /J {I O 1.1 hompoint} def 1 setlinewidth (A) A 0.2 add [t dup ] ultext (B) B -0.2 add [t dup ] dctext (O) O [t dup] ultext %[A B E D] {plus3} papply A B mediatrice droite $(\Delta)$ -3.5 -4 [t dup] dctexlabel $\displaystyle\frac{2\pi}{3}$ 2 2 O 20 rotatepoint cctexlabel -30 0 O 2.7 (<-) Cercle $\displaystyle-\frac{\pi}{6}$ 3 -0.8 cctexlabel 0 120 O 2.3 (->) Cercle [A O] ligne [B O] ligne gsave 0.5 setlinewidth O 4 cercle %0 70 C 4 Cercle %an -120 add dup -10 add exch 10 add D r Cercle %60 an neg add dup -10 add exch 10 add E r Cercle %0 -30 O 1 Cercle %0 -30 O 1.1 Cercle %-60 -30 O 1.2 Cercle %-60 -30 O 1.3 Cercle 80 100 D 4 Cercle -10 10 0 4 4 Cercle [-2 0 A .5 add] ligne [0 -2 B exch .5 add exch] ligne %% adresse IP : 82.254.25.159