-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 $\vec \imath $ .5 0 dctexlabel $\vec \jmath $ 0 .5 (3 0) cltexlabel