%% 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 {-6 -3} def /B {-4.2 -0.8} def /C {0 3} def /D {2.8 1.3} def [A ] {plus3} papply [A B] (->) ligne [D C] (->) ligne %[C -6 -2] (->) ligne (A) A [t dup] cltext %(B) B [t dup] ultext $\overrightarrow{u}$ A B milieu [t dup] ultexlabel $\overrightarrow{v}$ C D milieu [t dup] urtexlabel /E {B D C vecteur translatepoint} def (E) E [2 dup] ultext