Recherche de points sur l'axe orthique
Author: Patrice Debart

V = (8.068854393144168, -0.629113204461409)
O = (3.8075334512446135, -0.9521361273441831)
c = Circle(O, V)
B = Point(c)
C = Point(c)
A = Point(c)
B' = Midpoint(A, C)
h_1 = OrthogonalLine(A, Segment[B, C])
ABC, AB, BC, AC = Polygon(A, B, C)
h_2 = OrthogonalLine(B, AC)
H = Intersect(h_1, h_2)
Ω = Midpoint(O, H)
c' = Circle(Ω, B')
M = Point(c)
dMH = Line(M, H)
M' = Intersect(c', dMH, 2.0)
N = Point(c)
dNH = Line(N, H)
N' = Intersect(c', dNH, 2.0)
h_3 = OrthogonalLine(C, AB)
dBC = Line(C, B)
B_1 = Intersect(h_2, Line[A, C])
C_1 = Intersect(Line[A, B], h_3)
h = Line(B_1, C_1)
A_2 = Intersect(c, h_1, 2.0)
B_2 = Intersect(c, h_2, 2.0)
C_2 = Intersect(c, h_3, 2.0)
A' = Midpoint(B, C)
C' = Midpoint(A, B)
A_1 = Intersect(h_1, Line[C, B])
d_1 = Line(A_1, C_1)
e_1 = Line(A_1, B_1)
dAC = Line(C, A)
dAB = Line(B, A)
P = Intersect(dBC, h)
Q = Intersect(d_1, dAC)
R = Intersect(e_1, dAB)
Δ = Line(P, Q)
MM' = Segment(M, M')
Δ' = Line(O, H)
dMN = Line(M, N)
m = Line(M', N')
S = Intersect(dMN, m)
A'' = Midpoint(H, A)
B'' = Midpoint(H, B)
C'' = Midpoint(H, C)