%% auteur : 400 setwidth 1 1 scale 90 setangle_repere 1 setxyrapport -1 6 setxrange -1 4 setyrange -6 25 setxrange -5 8 setyrange %quadrillage /A {0 0} def /B {5 3} def /C{5 0} def tracerepere /u {5 3} def 2 setlinewidth [A C] ligne [B C] ligne A C B angledroit /arrowscale{2 2} def setTimes $\vec u$ A dupp u addv milieu [1.5 dup] ultexlabel 1.3 setlinewidth [A dupp u addv] (->) ligne $x$ A C milieu [1.5 dup] dctexlabel $y$ B C milieu [1.5 dup] drtexlabel