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