eq1: y^(2) = ((x * (x - 1)) * (x - 2))
O = Point(eq1)
eq2: (((-3 * x^(2)) + (6 * x) - 2) * x(O)) + ((2 * y(O)) * y) + (3 * x^(2)) + y^(2) - (4 * x) = 0
A, B, D_{1}, C, D, G = Intersect(eq1, eq2)
f = Line(O, A)
g = Line(O, B)
i = Line(O, D)
h = Line(O, C)
a = CrossRatio(Intersect[f, xAxis], Intersect[g, xAxis], Intersect[h, xAxis], Intersect[i, xAxis])