%% auteur :
400 setwidth
1 1 scale
70 setangle_repere
1.5 setxyrapport
-3 10 setxrange
-2 8 setyrange
-6 25 setxrange
-5 8 setyrange
%quadrillage
/A {2 5} def
/B {7 2} def
A dashpoint
B dashpoint
/u {5 -3} def
tracerepere
/arrowscale{2 2} def
setTimes
(A) A [1.5 1.5] ultext
(B) B [1.5 1.5] rtext
$\vec \imath $
.3 0 [1.5 dup] dctexlabel
$\vec \jmath $
0 .1 [1.5 dup] ultexlabel
$\vec u$
A dupp u addv milieu [1.5 dup] urtexlabel
1.3 setlinewidth
[A dupp u addv] (->) ligne
$x_A$
2 0 [1.5 dup] dctexlabel
$x_B$
7 0 [1.5 dup] dctexlabel
$y_A$
0 5 [1.5 dup] cltexlabel
$y_B$
0 2 [1.5 dup] cltexlabel