28.346 setxunit
15 setfontsize

-11.5 6.5 setxrange
-5 7 setyrange




/A {-6 0} def
/O {0 0} def
/B {6 0} def
/P {A O -45 rotatepoint} def


[A O B P] plot

gsave
setTimesItalic
(A) A dctext
(O) O dctext
(B) B dctext
(P) P uctext
grestore

1 setlinewidth

/d {A B droite} def
d

/C {0 180 O 6 Cercle} def
C

/r {A P distance} def
/C1 {A r cercle} def
C1

/M {A B A r interdroitecercle popp} def
M point

/N {M A 180 rotatepoint} def
N point

gsave
setTimesItalic
(M) M dltext
(N) N dltext
grestore

gsave
bleu
A P B angledroit
[B P] ligne
[P A] ligne
grestore

/I {P B milieu} def
I point

/G {I A P O interdroite} def
G point

gsave
bleu
pointilles
[A I] ligne
[P O] ligne
P I 2 marked
I B 2 marked
grestore

/J {P M milieu} def
J point

/G1 {J N P A interdroite} def
G1 point

gsave
vert
[P N] ligne
[P M] ligne
pointilles
[J N] ligne
[P A] ligne
P J 1 marked
J M 1 marked

grestore

gsave
rouge
G1 G (->) line
A O (->) line
grestore

/e {P O G1 paral} def
gsave
rouge
pointilles
e droite
grestore

/E {e A B interdroite} def
E point

/C2 {0 180 E 2 Cercle} def

gsave
magenta
C2
grestore

gsave
setTimesItalic
(E) E dltext
(G) G uctext
(G) G1 urtext
(1) indice
(C) 0 6 uctext
(C) -6 4.75 uctext
(1) indice
grestore





   
%% adresse IP : 82.230.142.134