Problema 
de Alhacén

O: (0, 0)
r: 5
c = Circle((0, 0), r)
A = PointIn(c)
B = PointIn(c)
h: (((x(A) * y(B)) + (x(B) * y(A))) * (x^(2) - y^(2))) = (((2 * ((x(A) * x(B)) - (y(A) * y(B)))) * x) * y) - (r^(2) * (((x(A) + x(B)) * y) - ((y(A) + y(B)) * x)))
trayectorias2 = Sequence(PolyLine[{A, Intersect[c, h, k], B}], k, 1, 4)