-6 4 setxrange
-.5 3 setyrange

%200 setwidth
%200 setheight
marks
/A {2 .5} def
/A' {A 1 0 addvecteur} def
/B {3 2} def
/M {B A subvecteur} def
/C {-2 .5} def
/D {-3 2} def
/N {D C addvecteur} def

18 setfontsize
traceaxes
axesarrow
unites

/arrowscale {.8 .8} def

O A tracevecteur
O B tracevecteur
O C tracevecteur
O D tracevecteur
gsave
  pointilles
  O M tracevecteur
  A B tracevecteur
  O N tracevecteur
  D N tracevecteur
grestore

A' A B .5 (<-) tripointarcarrow
1 0 O M .5 (<-) tripointarcarrow
mixte 
[A A'] ligne


continu
medium setcourbelinewidth
[1 0 O 0 1] ligne