-6 4 setxrange
-.5 3 setyrange
%200 setwidth
%200 setheight
marks
/A {2 .5} def
/A' {A 1 0 addvecteur} def
/B {3 2} def
/M {B A subvecteur} def
/C {-2 .5} def
/D {-3 2} def
/N {D C addvecteur} def
18 setfontsize
traceaxes
axesarrow
unites
/arrowscale {.8 .8} def
O A tracevecteur
O B tracevecteur
O C tracevecteur
O D tracevecteur
gsave
pointilles
O M tracevecteur
A B tracevecteur
O N tracevecteur
D N tracevecteur
grestore
A' A B .5 (<-) tripointarcarrow
1 0 O M .5 (<-) tripointarcarrow
mixte
[A A'] ligne
continu
medium setcourbelinewidth
[1 0 O 0 1] ligne
|