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 {-6 -3} def
/B {-4.2 -0.8} def

/C {0 3} def
/D {2.8 1.3} def
[A ] {plus3} papply
[A B] (->) ligne
[D C] (->) ligne
%[C -6 -2] (->) ligne 
(A) A [t dup] cltext
%(B) B [t dup] ultext

<latex>
$\overrightarrow{u}$
</latex>
A B milieu [t dup] ultexlabel
<latex>
$\overrightarrow{v}$
</latex>
C D milieu [t dup] urtexlabel

/E {B D C vecteur translatepoint} def
(E) E [2 dup] ultext