%% auteur : Péric
28.45 setxunit
-3.9 4.9 setxrange
-3.5 3.9 setyrange
1 1 settkstep
1 1 setmkstep
ticks
/t {2} def
/xmarkstyle {[1.5 dup] drtext} def
/ymarkstyle {[1.5 dup] ultext} def
1 xmark
1 ymark
-2 ymark
2 xmark
traceaxes
axesarrow
unites


/A {2 sqrt 6 sqrt} def
/A' {0.5 3 sqrt 2 div} def
/B {2 -2} def
/O {0 0} def
/C {2 0} def
/D {0 -2} def
/M {0.5 3 sqrt 2 div} 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 ] uctext
(B) B -0.1 add  [t dup ] drtext
(O) O [t dup] ultext
(M) M exch 0.1 sub exch 0.05 add [1.5 dup] uctext
%[A B E D] {plus3} papply
%A B mediatrice droite
%<latex>
%$(\Delta)$
%</latex>
%-3.5 -4 [t dup] dctexlabel

<latex>
$\displaystyle2\sqrt{2}$
</latex>
A O 0.5 hompoint {60} urtexlabel
-60 120 O 2 sqrt 2 mul (-) Cercle
0 60 O 1.5 (->) Cercle

<latex>
$\displaystyle\frac{\pi}{3}$
</latex>
1.5 1 cctexlabel
<latex>
$\displaystyle\frac12$
%$1/2$
</latex>
0.5 0.1 [0.75 dup] dctexlabel
[O A] ligne
[O B] ligne
pointilles
[B C] ligne
[B D] ligne
[A' 0.5 0] ligne
0 360 O 1 (-) Cercle

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
grestore




%% adresse IP : 82.254.25.159