Parabola Investigation

This allows you to explore the key features of the parabola.

Un-hide negative branch

a = 2 (slider from 0 to 5, step 0.1)
t = 3 (slider from 0 to 4, step 0.1)
b = CurveCartesian((a * v^(2)), ((2 * a) * v), v, 0, t)
c: (a * (-t))
directrix = Line(((-a), 0), ((-a), 10))
A: b(t)
P = Point(b)
text1 = LaTeX(A, true, true)
F = Point({a, 0})
d = Segment(F, P)
B = Point({(-a), y(P)})
e = Segment(B, P)
l1 = Length(d)
l2 = Length(e)
text2: "Focus, F = " + F + ""
text4: "Length of line BP = " + l2 + ""
b1 = CurveCartesian((a * v^(2)), ((2 * a) * v), v, (-t), t)
f = false
text3: "Length of line PF = " + l1 + ""