-4 4 setxrange
-1 5 setyrange
.5 .5 setquadrillagestep
/A {-1.5 0} def
/U {-3 1} def
/u {1 1.5} def
/V {0 3} def
/v {1.5 0} def
/W {0 2} def
/w {-1 -1} def
/M {A u addv v addv w subv} def
/N {A u addv v subv w subv} def
quadrillage
[A M N] points
20 setfontsize
setTimesItalic
(A) A urtext
(M) M urtext
(N) N urtext
1.5 setlinewidth
/dotscale {1.2 dup} def
[U V W] points
U dupp u addv (->) line
V dupp v addv (->) line
W dupp w addv (->) line
|