%% auteur : 
1 1 setsubtkstep
2 setxyrapport
-4 6 setxrange
-4 7.5 setyrange
30 setxunit
quadrillage

/A {1 -2} def
/B {0 6} def
/C {0 4} def
/A' {5 1} def
/B' {3 5} def
/C' {-2 -3} def


/u {A dupp A' vecteur 1 3 div mulv} def
/v {B dupp B' vecteur 2 3 div mulv} def
/w {C dupp C' vecteur 5 7 div mulv} def

A dupp u addv /M defpoint
B dupp v addv /N defpoint
C dupp w addv /P defpoint

tracerepere

[A B C A' B' C' M N P] points

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


<tex>
$\vec u$
</tex>
A M milieu [1.5 dup] drtexlabel
<tex>
$\vec v$
</tex>
B N milieu [1.5 dup] urtexlabel
<tex>
$\vec w$
</tex>
C P milieu [1.5 dup] ultexlabel

.6 setlinewidth
[A A'] ligne
[B B'] ligne
[C C'] ligne
1 setlinewidth
[A M] (->) ligne
[B N] (->) ligne
[C P] (->) ligne

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