Fichier 6288.jps — Modifié le 21 Octobre 2009 à 00 h 15
56.90 setxunit
-0.9 4.9 setxrange
-2.5 2.5 setyrange
1 1 settkstep
1 1 setmkstep
ticks
/t {2} def
/xmarkstyle {[1.5 dup] dltext} def
/ymarkstyle {[1.5 dup] ultext} def
%[-1] {xmark} apply
%[1 ] {ymark} apply
/xmarkstyle {[1.5 dup] drtext} def
/ymarkstyle {[1.5 dup] dltext} def
[1] {xmark} apply
%[-1] {ymark} apply
traceaxes
%axesarrow
unites
%<latex>
%i
%
%0 1 [1.5 dup] cltexlabel
/titrait {%le point à marquer puis un point de la droite
4 dict begin
/b defpoint
/a defpoint
/d {a a b vecteur arg 90 add dir 0.05 mulv translatepoint} def
/e {a a b vecteur arg -90 add dir 0.05 mulv translatepoint} def
[d e] ligne
end
} def
/A {2 0} def
/B {3 0} def
/D {2 2 sqrt 2 div add 6 sqrt 2 div} def
/D' {1 3 sqrt} def
/O {0 0} def
2 1 2 5 1.5 0 1.5 interdroitecercle /M1 defpoint /M2 defpoint
1 setlinejoin
1 setlinewidth
[A B D D'] {plus3} papply
%[A B C D A] ligne
(O) O [t dup] dltext
(A) A [t dup] dltext
(B) B [t dup] dltext
(D) D [t dup] urtext
(D') D' [t dup] ultext
<latex>
$\textrm{M}_1$
</latex>
M1 [1.3 dup] urtexlabel
<latex>
$\textrm{M}_2$
</latex>
M2 [1.3 dup] drtexlabel
<latex>
$\Gamma\,'$
</latex>
2 1 25 cos add mul 25 sin 2 mul [1.5 dup] urtexlabel
<latex>
$\frac{2\pi}3$
</latex>
2 0.3 add 0 A 60 rotatepoint [1.5 dup] urtexlabel
1.5 0 1.5 cercle
A 2 cercle
[A D'] ligne
0 120 A 0.4 (->) Cercle
pointilles
[2 1.6 2 -1.6] ligne
[1 2 1 0] ligne
A 2 sqrt cercle