%% 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 /titarc {%le sommet, le point oł passe l'arc et le delta angulaire "A B an titarc" 5 dict begin /an exch def /b defpoint /a defpoint /angu {a b angle} def angu an sub angu an add a a b vecteur norme Cercle end } def /t {2}def /ahlength {10} def 2 setlinewidth 1 setlinejoin /A {-4 -3} def /B {-0 1} def /G {2 -2} def /H {-7 -1} def /C {0 3} def /D {2.8 1.3} def [H ] {plus3} papply [A B] (->) ligne (H) H [t dup] ultext $\overrightarrow{u}$ A B milieu [t dup] ultexlabel /w {A G vecteur normalize 2 mulv} def /A1 {A w translatepoint} def /A2 {A w 2 mulv translatepoint} def /A3 {A w 3 mulv translatepoint} def /A4 {A w 4 mulv translatepoint} def %[A1 A2 A3 A4] {times3} papply /L {A A B vecteur 4 3 div mulv translatepoint} def /K {H A L vecteur translatepoint} def (K) K right 0.4 mulv translatepoint [t dup] crtext [H K] (->) ligne $\frac43\overrightarrow{u}$ H K milieu [t dup] ultexlabel gsave 1 setlinewidth A A1 10 titarc A1 A2 10 titarc A2 A3 10 titarc A3 A4 10 titarc [A3 B] ligne [A2 A A B vecteur 2 3 div mulv translatepoint] ligne [A1 A A B vecteur 1 3 div mulv translatepoint] ligne [A4 A A B vecteur 4 3 div mulv translatepoint] ligne L K 20 titarc H K 10 titarc A G droite A B droite pointilles [A H] ligne [L K] ligne grestore