Fichier 6798.jps — Modifié le 3 Novembre 2009 à 14 h 42
usecolor
-3 3 setxrange
-3 3 setyrange
60 setxunit
/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
A point B point C point D point E point
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
gsave
blue
[A C] ligne
[B D] ligne
grestore
[A B] ligne
[A D] ligne
[A E] ligne
[B C] ligne
[B E] ligne
[C D] ligne
[C E] ligne
[D E] ligne
/dotscale {2.5 dup} def
gsave
blue
[A] {times} plot
[B] {times} plot
[C] {times} plot
[D] {times} plot
grestore
/K{A C B D interdroite} def
/dotscale {3.5 dup} def
gsave
blue
[K] {times} plot
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
%% adresse IP : 193.174.11.114