f(x) = x^(2)
A = Point(f)
L = Intersect(yAxis, OrthogonalLine[A, yAxis])
O = (0, 0)
B = Mirror(L, O)
a = Line(A, B)
b = OrthogonalLine(A, Line[A, B])
N = Intersect(yAxis, OrthogonalLine[A, Line[A, B]])
c = Segment(L, N)