Hipérbola de Stammler

Triángulo

polígono1, c, a, b = Polygon(A, B, C)
J = Point(a)
H = Point(a)
l = Line(J, H)
G = Point(b)
F = Point(b)
m = Line(G, F)
C' = Intersect(m, l)
E = Point(c)
D = Point(c)
n = Line(D, E)
A' = Intersect(n, m)
B' = Intersect(l, n)
d_2, e_2 = AngularBisector(b, a)
d_1, e_1 = AngularBisector(b, a)
h_1, i_1 = AngularBisector(c, b)
h, i = AngularBisector(c, b)
E_C = Intersect(e_1, h)
E_A = Intersect(d_1, i)
E_B = Intersect(d_1, h)
d = LineBisector(a)
e = LineBisector(b)
f = AngularBisector(B', C', A')
j = AngularBisector(A', B', C')
I = Intersect(f, j)
O = Intersect(d, e)
k = Conic(E_A, E_B, E_C, O, I)