-2 6 setxrange
-4 3 setyrange
/A {2 1} def
/B {5 2} def
/C {1 -3} def

/M {O A B vecteur addv} def
/N {M A C vecteur -1 3 div mulv addv} def
/P {B B A vecteur B C vecteur .5 mulv addv addv} def

marks
quadrillage
.7 setlinewidth
traceaxes
unites

[A B C M N P] points

setTimesItalic
   (A) A ultext
   (B) B urtext
   (C) C drtext
   (M) M urtext
   (N) N urtext
   (P) P dltext