F = Point(xAxis)
j = OrthogonalLine(F, xAxis)
V = Intersect(yAxis, xAxis)
c = Circle(V, F)
B_1, B = Intersect(c, xAxis)
DIRECTRIZ = OrthogonalLine(B, xAxis)
d = Parabola(F, DIRECTRIZ)
g = OrthogonalLine(F, xAxis)
D, E = Intersect(d, g)
LR = Segment(E, D)
P = Point(d)
i = OrthogonalLine(P, DIRECTRIZ)
H = Intersect(DIRECTRIZ, i)
d1 = Segment(H, P)
d2 = Segment(P, F)
p = Segment(V, F)