Source
%% auteur : Peric
28.54 setxunit
28.54 setyunit
/quadrillagegray 0.6 def
1 setquadrillagexstep
1 setquadrillageystep
quadrillage

/xmarkstyle {[2 dup] dltext} def
/ymarkstyle {[2 dup] ultext} def
-10 10 setxrange
-5 5 setyrange
%1 1 settkstep
%1 1 setmkstep
%ticks
%marks
%0 xmark
%traceaxes
%axesarrow
%unites


/t {2}def
/ahlength {10} def
2 setlinewidth 
1 setlinejoin

/A {4 -1} def
/A1 {-7 2} def
/B1 {-8 3} def
/A2 {-5 0} def
/B2 {-6 3} def
/A3 {-2 2} def
/B3 {-4 1} def
/A4 {-8 -1} def
/B4 {-5 -3} def
/A5 {-4 -4} def
/B5 {0 -3} def



[A1 B1] (->) ligne
[A2 B2] (->) ligne
[A3 B3] (->) ligne
[A4 B4] (->) ligne
[A5 B5] (->) ligne
 
<latex>
$\overrightarrow{u_1}$
</latex>
A1 B1 milieu [t dup] dltexlabel
<latex>
$\overrightarrow{u_2}$
</latex>
A2 B2 milieu [t dup] urtexlabel
<latex>
$\overrightarrow{u_3}$
</latex>
A3 B3 milieu [t dup] drtexlabel
<latex>
$\overrightarrow{u_4}$
</latex>
A4 B4 milieu [t dup] dltexlabel
<latex>
$\overrightarrow{u_5}$
</latex>
A5 B5 milieu [t dup] drtexlabel

/C0 {6 0} def
/C1 {C0 A1 B1 vecteur translatepoint} def
/C2 {C1 A2 B2 vecteur translatepoint} def
/C3 {C2 A3 B3 vecteur translatepoint} def
/C4 {C3 A4 B4 vecteur translatepoint} def
/C5 {C4 A5 B5 vecteur translatepoint} def 
%[C0 C1 C2 C3 C4 C5] {times3} papply
%[C0 C1 C2 C3 C4 C5] (->) ligne
[C0 C1 C2 C3 C4 C5] {4 array astore (->) ligne } 2 4 Apply

<latex>
$\overrightarrow{u_1}$
</latex>
C0 C1 milieu [t dup] dltexlabel
<latex>
$\overrightarrow{u_2}$
</latex>
C1 C2 milieu [t dup] urtexlabel
<latex>
$\overrightarrow{u_3}$
</latex>
C2 C3 milieu [t dup] ultexlabel
<latex>
$\overrightarrow{u_4}$
</latex>
C3 C4 milieu [t dup] dltexlabel
<latex>
$\overrightarrow{u_5}$
</latex>
C4 C5 milieu [t dup] ultexlabel

/E {C5 -1 -3 translatepoint} def
/F {C0 -1 -3 translatepoint} def
[E F] (->) ligne
<latex>
$\overrightarrow{u_6}$
</latex>
E F milieu [t dup] drtexlabel

(A) C0 [t dup] dctext
pointilles
[C5 C0] (->) ligne