Author: Don Bindner
Date: 9 February 2014

f(x) = x^(3) - x
E = Point(yAxis)
d = Line(E, xAxis)
g(x) = 3 * x^(2) - 1
h(x) = 6 * x
A = Point(d)
a = OrthogonalLine(A, xAxis)
B = Intersect(f, a, 1)
C = Intersect(g, a, 1)
D = Intersect(h, a, 1)
b = Tangent(B, f)
c = Tangent(C, g)