%% auteur : 

400 setwidth
1 1 scale
70 setangle_repere
1.5 setxyrapport
-3 5 setxrange
-2 6 setyrange
20 setxunit
-6 25 setxrange
-5 8 setyrange
quadrillage

/M {2 5} def


M dashpoint


tracerepere

/arrowscale{2 2} def
setTimes
(M) M [1.5 1.5] ultext

<tex>
$\vec \imath $
</tex>
.3 0 [1.5 dup] dctexlabel
<tex>
$\vec \jmath $
</tex>
0 .1 [1.5 dup] ultexlabel

<tex>
$x$
</tex>
2 0 [1.5 dup] dctexlabel

<tex>
$y$
</tex>
0 5 [1.5 dup] cltexlabel