V = (0, -3)
h = OrthogonalLine(V, xAxis)
F = Point(h)
B = Mirror(F, V)
DIRECTRIZ = OrthogonalLine(B, h)
c = Parabola(F, DIRECTRIZ)
P = Point(c)
h_1 = OrthogonalLine(P, DIRECTRIZ)
A = Intersect(h_1, DIRECTRIZ)
d1 = Segment(A, P)
d2 = Segment(P, F)
g = OrthogonalLine(F, h)
D, E = Intersect(c, g)
LR = Segment(E, D)
p = Segment(F, V)
k = OrthogonalLine(V, h)