q

p

r

p = 2.4 (slider from -5 to 5)
q = 0.8 (slider from -5 to 5)
F: (p, q)
r = -3 (slider from -5 to 5)
f: y = r
c = Parabola(F, f)
eq1: x = p
S: (p, 0)
g = Segment(F, S)
T: (0, q)
h = Segment(T, F)
A = Intersect(xAxis, yAxis)
B = Point(f)
i = Segment(A, B)
s: y = (1 / ((2 * q) - (2 * r)) * x^(2)) - (p / (q - r) * x) + (p^(2) + q^(2) - r^(2)) / ((2 * q) - (2 * r))