cycle d'un trinôme
Author: G CORDES

f(x) = x^(2) - 12 x + 40
a = Point(xAxis)
b_1 = OrthogonalLine(a, xAxis)
A = Intersect(f, b_1)
c = OrthogonalLine(A, b_1)
fa = Intersect(yAxis, c)
I = Point(xAxis)
J = Point(yAxis)
d = LineBisector(I, J)
b = Mirror(fa, d)
e = OrthogonalLine(b, xAxis)
B = Intersect(f, e)
g = OrthogonalLine(B, e)
fb = Intersect(g, yAxis)
C = Mirror(fb, d)
h = Segment(fa, b)
i = Segment(fb, C)