%% 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 {4 -1} def /A1 {-7 2} def /B1 {-8 3} def /A2 {-5 0} def /B2 {-6 3} def /A3 {-2 2} def /B3 {-4 1} def /A4 {-8 -1} def /B4 {-5 -3} def /A5 {-4 -4} def /B5 {0 -3} def /G {2 -2} def /H {-7 -1} def /C {0 3} def /D {2.8 1.3} def [A ] {plus3} papply %[D C] (->) ligne %[C -6 -2] (->) ligne (A) A [t dup] cltext %(B) B [t dup] ultext %(H) H [t dup] ultext %/K {H A B vecteur 4 3 div mulv translatepoint} def %K times [A1 B1] (->) ligne [A2 B2] (->) ligne [A3 B3] (->) ligne [A4 B4] (->) ligne [A5 B5] (->) ligne $\overrightarrow{u_1}$ A1 B1 milieu [t dup] dltexlabel $\overrightarrow{u_2}$ A2 B2 milieu [t dup] urtexlabel $\overrightarrow{u_3}$ A3 B3 milieu [t dup] ultexlabel $\overrightarrow{u_4}$ A4 B4 milieu [t dup] dltexlabel $\overrightarrow{u_5}$ A5 B5 milieu [t dup] drtexlabel