%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
 
<latex>
$\textrm{A}$
</latex>
 A h add [t dup ] uctexlabel
<latex>
$\textrm{B}$
</latex>
 B exch h add exch [t dup ] crtexlabel
<latex>
$\textrm{C}$
</latex>
 C exch h sub exch [t dup ] cltexlabel
<latex>
$\textrm{O}$
</latex>
 O  [t dup ] cltexlabel
<latex>
$\textrm{H}$
</latex>
 H h sub [t dup ] dctexlabel
<latex>
$\alpha$
</latex>
O right d 0.2 add mulv translatepoint O a 2 div 45 sub  rotatepoint [t dup ] cctexlabel
<latex>
$1$
</latex>
 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