%auteur : Peric 28.45 setxunit 90 setangle_repere -6 8 setxrange -7 5 setyrange 1 1 settkstep .5 .5 setsubtkstep 2 2 setmkstep ticks marks traceaxes axesarrow unites /A {1 2} def /K {3 -2} def /B {-5 4} def /E {7 0} def /Q {K A 90 rotatepoint} def /F {5 verticale A Q interdroite} def /G {6 verticale K A IAcercle interdroitecercle pop pop} def /a {2} def %/G {A C 2 3 div hompoint} def %/H {A C milieu} def %/J {A B milieu} def %/d {A C mediatrice} def %/Q {A H 90 rotatepoint} def %/R {0.5 0} def %/S {R A 120 rotatepoint} def A plus2 K plus2 B plus2 A B droite A Q droite K A Q angledroit (B) B [a dup ] urtext (K) K [a dup ] urtext (A) A up 0.1 mulv translatepoint [a dup ] uctext (E) E [a dup ] urtext #latex# $(T_A)$ F [1.5 dup] ultexlabel (\(C\)) G [a dup ] drtext %d mixte droite K A K distance cercle [A K] pointilles ligne