f(x) = x^(3) - 4 * x
A = Point(f)
c = Circle(A, 0.1)
B, C = Intersect(f, c)
d = Circle(A, C, B)
D = Center(d)
luogo1 = Locus(D, A)
a = Line(A, C)
b = OrthogonalLine(A, a)