%auteur : Peric
56.90 setxunit
-4 4 setxrange
-3 5 setyrange
1 1 settkstep
1 1 setmkstep
%traceaxes
%axesarrow
%unites
%ticks
/t {2} def
/h {0.2} def
/A {0 4} def
/B {2.5 -1} def
/C {-2.5 -1} def
/H {0 -1} def
/O {A B mediatrice A H interdroite} def
/a {B H vecteur norme O B vecteur norme div arccos neg} def
/d {0.5} def
$\textrm{A}$
A h add [t dup ] uctexlabel
$\textrm{B}$
B exch h add exch [t dup ] crtexlabel
$\textrm{C}$
C exch h sub exch [t dup ] cltexlabel
$\textrm{O}$
O [t dup ] cltexlabel
$\textrm{H}$
H h sub [t dup ] dctexlabel
$\alpha$
O right d 0.2 add mulv translatepoint O a 2 div 45 sub rotatepoint [t dup ] cctexlabel
$1$
O B milieu O B vecteur normal normalize 0.2 mulv translatepoint [t dup] {a} cctexlabel
gsave
1.5 setlinewidth
[A B C A] ligne
[A H] ligne
[O B] ligne
O A IAcercle cercle
-90 a O d Cercle
grestore
%% adresse IP : 82.254.59.231