-3 7 setxrange -7 5 setyrange 10 setfontsize /arrowscale {.7 dup} def quadrillage .7 setlinewidth traceaxes axesarrow unites /f {2 sub dup mul neg 3 add} def 1 setlinewidth -1 5 {f} Courbe setTimesItalic (O) O dltext (x) xmax 0 (-5 0) dltext (y) 0 ymax dltext $\vec \imath $ .5 0 dctexlabel $\vec \jmath $ 0 .5 cltexlabel