Y-Intercepts

f: y = x^(2)
A = Point(xAxis)
B = Point(xAxis)
g = OrthogonalLine(A, xAxis)
h = OrthogonalLine(B, xAxis)
C = Intersect(f, g, 1)
D = Intersect(f, h, 1)
i = Segment(C, D)
j = Segment(A, C)
k = Segment(B, D)
E = Intersect(i, yAxis)
text1: "" + (LaTeX[f]) + ""
ab: 0 - (x(A) * x(B))
xa: x(A)
xb: x(B)
F = Point(xAxis)
G: (((-ab)) / x(F), 0)
l = OrthogonalLine(G, xAxis)
H = Intersect(f, l, 1)
m = OrthogonalLine(F, xAxis)
I = Intersect(f, m, 1)
n = Segment(I, H)
q = Segment(F, I)
p = Segment(G, H)
text2: "the negative product of " + xa + " and " + xb + " is " + ab + ""