-5 13 setxrange
-2.5 10 setyrange
10 setfontsize
/arrowscale {.7 dup} def
-5 6 setxrange
quadrillage

traceaxes
axesarrow
unites

/f {dup mul} def
/g {1 exch div} def
/A {6.5 5} def
/B {6.5 1} def
.5 setlinewidth
{f} courbe
1 setlinewidth
xmin -.001 {g} Courbe
xmax .001 {g} Courbe

setTimesItalic
   (O) O dltext
   (x) xmax 0 (-5 0) dltext
   (y) 0 ymax dltext
   (y = ) A .5 2 addv brtext
   (y = ) B .5 2 addv brtext
setTimes
   (nom :) A .5 1 addv brtext
   (nom :) B .5 1 addv brtext


.7 setlinewidth
/arrowscale {.9 dup} def
/linearc .2 def
A A 6 3 addv frame
[A 0 1.5 addv 
2.5 dup f] (->) ligne

B B 6 3 addv frame
[B 0 1.5 addv 
2.5 dup g] (->) ligne

<tex>
$\vec \imath $
</tex>
.5 0 dctexlabel

<tex>
$\vec \jmath $
</tex>
0 .5 (3 0) cltexlabel