%% auteur :
400 setwidth
1 1 scale
90 setangle_repere
1 setxyrapport
-1 6 setxrange
-1 4 setyrange
-6 25 setxrange
-5 8 setyrange
%quadrillage
/A {0 0} def
/B {5 3} def
/C{5 0} def
tracerepere
/u {5 3} def
2 setlinewidth
[A C] ligne
[B C] ligne
A C B angledroit
/arrowscale{2 2} def
setTimes
$\vec u$
A dupp u addv milieu [1.5 dup] ultexlabel
1.3 setlinewidth
[A dupp u addv] (->) ligne
$x$
A C milieu [1.5 dup] dctexlabel
$y$
B C milieu [1.5 dup] drtexlabel