sol653edi
Author: Ricardo Barroso Campos

El punto P, puede ser de cuaquiera de las cónicas h,k,e o c, pulsando en propiedades y cambiando la básica.
Observar los valores correspondientes de

A = (0, 0)
B = (4, 0)
C = (8, 6)
polígono1, b, c_1, a = Polygon(C, A, B)
E = Midpoint(a)
A' = Mirror(A, E)
D = Midpoint(b)
f = Line(D, B)
F = Midpoint(c_1)
J = Midpoint(F, A)
j = Segment(C, J)
K = Intersect(f, j)
k = Conic(K, A, C, A', B)
d = Line(C, F)
G = Intersect(f, d)
I = Midpoint(G, C)
A'_1 = Mirror(A, I)
B' = Mirror(B, I)
h = Conic(B', C, A'_1, B, A)
P = Point(k)
polígono2, b_1, g, a_1 = Polygon(P, A, B)
polígono3, b_2, g_1, c_2 = Polygon(P, C, B)
polígono4, a_2, g_2, c_3 = Polygon(P, C, A)
C' = Mirror(C, F)
i: 2.0 / (1.0 / polígono2 + 1.0 / polígono3)
q_2: 2.0 / (1.0 / polígono2 + 1.0 / polígono3)
q_1: 2.0 / (1.0 / polígono3 + 1.0 / polígono4)
q_3: 2.0 / (1.0 / polígono2 + 1.0 / polígono4)
H = Midpoint(G, B)
l = Tangent(A, e)
m = Tangent(B, e)
n = Tangent(C, e)