%% auteur : Peric
28.45 setxunit
7.5 setborder
90 setangle_repere
-1 11 setxrange
-1 9 setyrange
/c {30  cos} def
/s {30  sin} def

/A {0 0} def
/B {8 c mul 8 s mul} def
/C {6 0} def
/H {10 8} def
/F {10 3 div 8 3 div} def
/P {4 8} def
/Q {8 3 div 10 3 div} def
/R {3 0} def

[A B C A] ligne
[A P] (->) ligne
[C H] (->) ligne
[A C] (->) ligne


gsave
pointilles
A H droite
grestore

(A) A [1.5 dup] ultext
(B) B [1.5 dup] ultext
(C) C [1.5 dup] drtext
(H) H [1.5 dup] ultext
(F) F [1.5 dup] dctext

[C H] (->) ligne
[A C] (->) ligne
[B F] (->) ligne


gsave
pointilles
A H droite
grestore

<latex>
$\displaystyle\frac{1}{3}\overrightarrow{BC}$
</latex>
Q [1.5 dup] {1 1 atan} crtexlabel

<latex>
$2\overrightarrow{AB}$
</latex>
B exch 6 add exch [1.5 dup] {2 1 atan} ultexlabel

<latex>
$\overrightarrow{AC}$
</latex>
R [1.5 dup] drtexlabel