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

/titarc {%le sommet, le point où passe l'arc et le delta angulaire "A B an titarc"
5 dict begin 
/an exch def
/b defpoint
/a defpoint
/angu {a b angle} def
angu an sub angu an add a a b vecteur norme Cercle
end
} def



/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] drtexlabel
<latex>
$\overrightarrow{v}$
</latex>
C D milieu [t dup] urtexlabel

/E {B D C vecteur translatepoint} def
(E) E left 0.3 mulv translatepoint [2 dup] cltext
<latex>
$\overrightarrow{v}$
</latex>
B E milieu [t dup] urtexlabel
/u {A B vecteur} def
/v {D C vecteur} def
/G {A u 3 mulv translatepoint} def
/F {G v -2 mulv translatepoint} def
(F) F down 0.3 mulv translatepoint [2 dup] dctext

<latex>
$3\overrightarrow{u}$
</latex>
A A A B vecteur 2 mulv translatepoint [t dup] drtexlabel
<latex>
$-2\overrightarrow{v}$
</latex>
G G G F vecteur 2 3 div mulv translatepoint [t dup] urtexlabel



gsave
1 setlinewidth
[B E] (->) ligne
B E 10 titarc
D C 10 titarc
D B 5 titarc
C E 5 titarc
[A E] (->) ligne

[A G] (->) ligne
[G F] (->) ligne
/H {A u 1 mulv translatepoint} def
/K {A u 2 mulv translatepoint} def
A H 5 titarc
H K 5 titarc
K G 5 titarc

/L {G v -1 mulv translatepoint} def
G L 10 titarc
%C D 10 titarc
%C G 30 titarc
D L 30 titarc
L F 10 titarc

dotted
G F droite

pointilles
[B D] (-) ligne
[E C] (-) ligne
grestore