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