%% 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 2 setlinewidth [A C] ligne [B C] ligne A C B angledroit /arrowscale{2 2} def setTimes (A) A [1.5 1.5] ultext (B) B [1.5 1.5] rtext $\vec \imath $ .3 0 [1.5 dup] dctexlabel $\vec \jmath $ 0 .1 [1.5 dup] ultexlabel $\overrightarrow {AB}$ A dupp u addv milieu [1.5 dup] ultexlabel 1.3 setlinewidth [A dupp u addv] (->) ligne $x_B-x_A$ A C milieu [1.5 dup] dctexlabel $y_B-y_A$ B C milieu [1.5 dup] drtexlabel