%auteur : Peric
56.90 setxunit
-1.8 3.5 setxrange
-1.5 4.5 setyrange
1 1 settkstep
1 1 setmkstep
ticks
/t {1.5} def
/t2 {1} def
/h {0.1} def


/change {
9 dict begin 
/n exch def
/d defpoint
/c defpoint
/b defpoint
/a defpoint
/a1 {a 0 4 1 3 div n exp hompoint} def
/b1 {b 0 4 1 3 div n exp hompoint} def
/c1 {c 0 4 1 3 div n exp hompoint} def
/d1 {d 0 4 1 3 div n exp hompoint} def
[a1 b1 c1 d1 a1] ligne
end
} def

traceaxes
axesarrow
unites

/A {0 -1} def
/B {3 0} def
/C {2 3} def
/D {-1 2} def
/I {0 4} def
/E {3 sqrt 0} def
/A1 {A I 1 3 div hompoint} def
/B1 {B I 1 3 div hompoint} def
/C1 {C I 1 3 div hompoint} def
/D1 {D I 1 3 div hompoint} def
/A2 {A1 I 1 3 div hompoint} def
/B2 {B1 I 1 3 div hompoint} def
/C2 {C1 I 1 3 div hompoint} def
/D2 {D1 I 1 3 div hompoint} def

/O {0 0} def
 
<latex>
$\textrm{A}$
</latex>
 A  [t dup ] drtexlabel
<latex>
$\textrm{B}$
</latex>
 B  [t dup ] dctexlabel
<latex>
$\textrm{C}$
</latex>
 C  [t dup ] urtexlabel
<latex>
$\textrm{D}$
</latex>
 D  [t dup ] ultexlabel
<latex>
$\textrm{A}_1$
</latex>
 A1  [t dup ] drtexlabel
<latex>
$\textrm{B}_1$
</latex>
 B1  [t dup ] drtexlabel
<latex>
$\textrm{C}_1$
</latex>
 C1  [t dup ] urtexlabel
<latex>
$\textrm{D}_1$
</latex>
 D1  [t dup ] ultexlabel
<latex>
$\textrm{A}_2$
</latex>
 A2  [t2 dup ] drtexlabel
<latex>
$\textrm{B}_2$
</latex>
 B2  [t2 dup ] drtexlabel
<latex>
$\textrm{C}_2$
</latex>
 C2  [t2 dup ] urtexlabel
<latex>
$\textrm{D}_2$
</latex>
 D2  [t2 dup ] ultexlabel

<latex>
$i$
</latex>
0 1 [t dup] crtexlabel
<latex>
$1$
</latex>
1 0 [t dup] dctexlabel
%(E) E  [t dup ] ultext
(O) O [t dup] dltext

gsave
1.5 setlinewidth
[A B C D A] ligne
%[A1 B1 C1 D1 A1] ligne
%[A2 B2 C2 D2 A2] ligne
grestore

A B C D 1 change
A B C D 2 change
A B C D 3 change
A B C D 4 change
A B C D 5 change
A B C D 6 change





%% adresse IP : 82.248.100.216