b = 2
c = -14 (slider from -14 to 14, step 0.1)
a: ((x - c - b) * x^(2)) = ((b - x) * y^(2))
d: y^(2) = ((-4 * b) * (x - c - b))
e: (x - c / 2)^(2) + y^(2) = c^(2) / 4
f: x = b
g: x = (2 * b)
F = Focus(d)
S: (b + c, 0)
O: (0, 0)
As: (b, 0)
u = Vector(F, S)
O' = Translate(O, u)
v = Vector(O, O')
As' = Translate(As, u)
w = Vector(As, As')