%% auteur : MORA
usecolor
-3 3 setxrange
-3 3 setyrange
60 setxunit
%tracerepere
%/O{0 0} def
/cerc{O 2} def
/r0 2 def                      %% rayon
/a10 2 pi mul -0.25 mul def    %% angle extremite inf
/a20 2 pi mul 0.583 mul def     %% angle extremite sup

/A{70 cerc cpoint} def
/B{120 cerc cpoint} def
/C{210 cerc cpoint} def
/D{270 cerc cpoint} def
/E{300 cerc cpoint} def
/F{15 cerc cpoint} def
A C B E interdroite /I1 defpoint
A C B D interdroite /I2 defpoint
C E B D interdroite /I3 defpoint
C E A D interdroite /I4 defpoint
B E A D interdroite /I5 defpoint
A E C F interdroite /I6 defpoint

gsave
90 sethangle
AntiqueWhite3
newpath
   A smoveto
   A E O ABCercle_
closepath
clip
   DarkOliveGreen fill
   %%DarkOliveGreen hachure
%%stroke
grestore

/fillstyle{CornflowerBlue fill } def
[I2 C I3] polygone*
/fillstyle{DarkMagenta fill } def
[I1 I2 I3 I4 I5] polygone*
/fillstyle{DarkGoldenrod1 fill } def
[A I1 I5] polygone*
/fillstyle{DarkCyan fill } def
[A I5 E] polygone*

[A B C D E F] points
%%cerc cercle
a10 rd a20 rd O r0 Cercle

%% le cercle representant l'intervalle de resolution
/r 2 def                      %% rayon
/a1 2 pi mul 0.583 mul def                   %% angle extremite inf
/a2 2 pi mul 0.75 mul def         %% angle extremite sup
%% trace
.8 setlinewidth
%%[A B C] polygone*
/fillstyle{.5 setgray fill } def
setTimes
gsave
  pointilles
  a1 rd a2 rd O r Cercle
grestore


[A B] ligne
[A C] ligne
[A D] ligne
[A E] ligne
[B C] ligne
[B D] ligne
[B E] ligne
[C D] ligne
[C E] ligne
[D E] ligne
[F C] ligne
gsave
blue
%%[F A] ligne
%%[F B] ligne
%%[F C] ligne
%%[F D] ligne
%%[F E] ligne
grestore

/dotscale {2 dup} def
%[O] {times} plot
setTimesItalic
<tex>
$A_1$
</tex> 
A [2 2] uctexlabel
<tex>
$A_2$
</tex> 
B [2 2] ultexlabel
<tex>
$A_3$
</tex> 
C [2 2] cltexlabel
<tex>
$A_{n-1}$
</tex> 
D [2 2] dctexlabel
<tex>
$A_n$
</tex> 
E [2 2] drtexlabel
<tex>
$\ A_{n+1}$
</tex> 
F [2 2] urtexlabel
45 cerc cpoint A
%% adresse IP : 89.225.160.100


%% adresse IP : 193.174.11.114