%%% somme de 2 vecteurs

50 setxunit

%%% les donnees

-0.5 3.5 setxrange
-0.5 4.5 setyrange

/u {2 1} def      %% le vecteur u
/v {1 3} def      %% le vecteur v

%%% les calculs

/arrowscale {1.5 1.5} def   %% taille des fleches

%% M" defini vectoriellement par OM" = u + v
/M" {
   O 
   u addv 
   v addv
} def

%% M tel que OM = u
/M {O u addv} def
%% M' tel que OM' = v
/M' {O v addv} def

quadrillage
traceaxes


O u vect       %% trace du vecteur u
O v vect       %% trace du vecteur v
M v vect
M' u vect

%% les coordonnées
/xM {2 0} def
/xM' {1 0} def
/xM" {3 0} def
/yM {0 1} def
/yM' {0 3} def
/yM" {0 4} def

vert
pointilles
[xM M yM] ligne
[xM' M' yM'] ligne
[xM" M" yM"] ligne

%% la legende

noir
<tex>
$M$
</tex>
0.2 M [1.4 dup] crtexlabel

<tex>
$M'$
</tex>
0.2 M' [1.4 dup] cltexlabel

<tex>
$M"$
</tex>
0.2 M" [1.4 dup] crtexlabel

<tex>
$x$
</tex>
0.2 xM dctexlabel

<tex>
$x'$
</tex>
0.2 xM' dctexlabel

<tex>
$x"$
</tex>
0.2 xM" dctexlabel 

<tex>
$y$
</tex>
0.2 yM cltexlabel   

<tex>
$y'$
</tex>
0.2 yM' cltexlabel 

<tex>
$y"$
</tex>
0.2 yM" cltexlabel