%% auteur : Peric 28.54 setxunit 28.54 setyunit /quadrillagegray 0.6 def 1 setquadrillagexstep 1 setquadrillageystep quadrillage /xmarkstyle {[2 dup] dltext} def /ymarkstyle {[2 dup] ultext} def -10 10 setxrange -5 5 setyrange %1 1 settkstep %1 1 setmkstep %ticks %marks %0 xmark %traceaxes %axesarrow %unites /t {2}def /ahlength {10} def 2 setlinewidth 1 setlinejoin /A {-8 2} def /B {5 1} def [A B] {plus3} papply [-8 2 -5 3] (->) ligne [-8 2 -6 -2] (->) ligne (A) A [t dup] ultext (B) B [t dup] ultext $\overrightarrow{u}$ -8 2 -5 3 milieu [t dup] uctexlabel $\overrightarrow{v}$ -8 2 -6 -2 milieu [t dup] dltexlabel