Fichier 680.jps — Modifié le 2 Décembre 2007 à 14 h 43

680.pdf
Source
%% 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
<latex>
$(\Delta)$
</latex>
-3.5 -4 [t dup] dctexlabel

<latex>
$\displaystyle\frac{2\pi}{3}$
</latex>
2 2 O 20 rotatepoint cctexlabel
-30 0 O 2.7 (<-) Cercle
<latex>
$\displaystyle-\frac{\pi}{6}$
</latex>
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

%[A E] ligne
%[O J] ligne
grestore

%gsave
%0.5 setlinewidth
%pointilles
%[A C] ligne
%grestore