%% auteur : 1 1 setsubtkstep 1 setxyrapport -1 12 setxrange -1 15 setyrange marks 30 setxunit quadrillage /T {2 12} def /R {1 3} def /C {6 6} def /L {10 13} def /N {7 4} def /B {11 4} def /G {2 2} def /M {4 7} def /X {6 12} def /Y {7 13} def /Z {11 2} def /W {4 3} def setTimesItalic (T) T urtext (L) L urtext (B) B urtext (G) G urtext (R) R ultext (C) C urtext (N) N ultext (M) M urtext tracerepere (O) O dltext $\vec \imath $ .3 0 [1.5 dup] dctexlabel $\vec \jmath $ 0 .1 [1.5 dup] ultexlabel [T C] (->) ligne [M R] (->) ligne [L N] (->) ligne [G B] (->) ligne pointilles [T X] ligne [C X] ligne [L Y] ligne [N Y] ligne [B Z] ligne [G Z] ligne [M W] ligne [R W] ligne