%% 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 [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] drtexlabel $\overrightarrow{u_4}$ A4 B4 milieu [t dup] dltexlabel $\overrightarrow{u_5}$ A5 B5 milieu [t dup] drtexlabel /C0 {6 0} def /C1 {C0 A1 B1 vecteur translatepoint} def /C2 {C1 A2 B2 vecteur translatepoint} def /C3 {C2 A3 B3 vecteur translatepoint} def /C4 {C3 A4 B4 vecteur translatepoint} def /C5 {C4 A5 B5 vecteur translatepoint} def %[C0 C1 C2 C3 C4 C5] {times3} papply %[C0 C1 C2 C3 C4 C5] (->) ligne [C0 C1 C2 C3 C4 C5] {4 array astore (->) ligne } 2 4 Apply $\overrightarrow{u_1}$ C0 C1 milieu [t dup] dltexlabel $\overrightarrow{u_2}$ C1 C2 milieu [t dup] urtexlabel $\overrightarrow{u_3}$ C2 C3 milieu [t dup] ultexlabel $\overrightarrow{u_4}$ C3 C4 milieu [t dup] dltexlabel $\overrightarrow{u_5}$ C4 C5 milieu [t dup] ultexlabel /E {C5 -1 -3 translatepoint} def /F {C0 -1 -3 translatepoint} def [E F] (->) ligne $\overrightarrow{u_6}$ E F milieu [t dup] drtexlabel (A) C0 [t dup] dctext pointilles [C5 C0] (->) ligne