Source
%% auteur : Gilles Mora

400 setwidth
1 1 scale
90 setangle_repere
1 setxyrapport
-2.5 9.5 setxrange
-2 9 setyrange


bleu
/A {2 6} def
/B {7 3} def
2 setlinewidth
A B droite
1 setlinewidth

vert

/C{7 6} def
B dashpoint
A dashpoint

noir
traceaxes
ticks
traceaxes
unites

vert

pointilles
[A C] ligne
[B C] ligne
A C B angledroit

bleu

setTimes
(M) A [1.75 1.75] dltext
(N) B [1.75 1.75] dltext

noir

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



<tex>
$x_N-x_M$
</tex>
A C milieu [1.75 1.75] dctexlabel
<tex>
$y_N-y_M$
</tex>
B C milieu [1.75 1.75] drtexlabel


<tex>
$x_M$
</tex>
2 0 [1.75 1.75] dctexlabel
<tex>
$x_N$
</tex>
7 0 [1.75 1.75] dctexlabel


<tex>
$y_M$
</tex>
0 3 [1.75 1.75] cltexlabel
<tex>
$y_N$
</tex>
0 6 [1.75 1.75] cltexlabel


continu
rouge
<latex>
$a=\displaystyle{\frac{y_N-y_M}{x_N-x_M}}$
</latex>
boxit
4 9 [2 2] dctexlabel

noir
setTimesItalic
   (O) O [1.75 1.75] dltext