Trisecar

Puntos Origen, Vértice, Final

α = Angle(B, A, C)
a = Segment(B, C)
B' = Rotate(B, α / 3.0, A)
b = Ray(A, B')
c = Segment(A, B)
B'' = Mirror(B', c)
d = Ray(A, B'')
D = Intersect(a, b)
E = Intersect(a, d)
F = If(Defined[D], D, E)
e = AngularBisector(F, A, C)
f = Line(A, F)