%% auteur : 400 setwidth 1 1 scale 90 setangle_repere 1 setxyrapport -3 10 setxrange -2 6 setyrange -6 25 setxrange -5 8 setyrange %quadrillage /A {2 1} def /B {7 4} def /C{7 1} def B dashpoint A dashpoint tracerepere /u {5 3} def [A C] ligne [B C] ligne A C B angledroit 2 setlinewidth A B droite /arrowscale{2 2} def setTimes (A) A [1.5 1.5] ultext (B) B [1.5 1.5] utext $\vec \imath $ .3 0 [1.5 dup] dctexlabel $\vec \jmath $ 0 .1 [1.5 dup] ultexlabel $x_B-x_A$ A C milieu [1.5 dup] dctexlabel $y_B-y_A$ B C milieu [1.5 dup] drtexlabel $x_A$ 2 0 [1.5 dup] dctexlabel $x_B$ 7 0 [1.5 dup] dctexlabel $y_A$ 0 1 [1.5 dup] cltexlabel $y_B$ 0 4 [1.5 dup] cltexlabel