Source
%% 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

<latex>
$\overrightarrow{u}$
</latex>
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
<latex>
$\frac43\overrightarrow{u}$
</latex>
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