f(x) = 1 / (x - 4)^(2)
A = Point(xAxis)
g = OrthogonalLine(A, xAxis)
M = Intersect(f, g, (3.3971825220032086, 2.7518726289859434))
h = Segment(A, M)