On peut déplacer A B C

k=

n est variable sur le cercle en pointillés

Dessin de B.Gibert
 (Lk) avec K variable sur curseur;
 K=sqrt((k-1)/k); 

A = (-0.3489919905248768, 8.801120219451708)
B = (-2.322766740649755, 0.8554116099746337)
C = (6.887597910224391, 3.4820283501248754)
a = Segment(B, A)
b = Segment(A, C)
c = Segment(C, B)
d = Circle(B, C, A)
e = OrthogonalLine(A, c)
f = OrthogonalLine(B, b)
H = Intersect(e, f)
g = LineBisector(B, C)
h = LineBisector(A, C)
O = Intersect(g, h)
distanceOA = Distance(O, A)
TexteOA: Name[O] + (Name[A]) + " \, = \, " + distanceOA
K = 1.55 (slider from 0 to 5, step 0.05)
cO = Circle(O, distanceOA * K)
n = Point(cO)
i = AngularBisector(A, B, C)
m' = Mirror(n, i)
j = AngularBisector(B, A, C)
k' = Line(B, m')
m'1 = Mirror(n, j)
l = Line(A, m'1)
M = Intersect(k', l)
lieu1 = Locus(M, n)
m = Segment(m', n)
p = Segment(n, m'1)
k: 1.0 / (1.0 - K^(2.0))
texte3: k + ""
poly1, c_1, a_1, b_1 = Polygon(A, B, C)
q = Line(A, C)
r = Line(B, C)
s = Line(A, B)