Pol = (0.5, -2)
f = Line(Pol, yAxis)
a: 1
c: y = (a * x^(2))
B = Intersect(c, f)
Pol' = Mirror(Pol, B)
g = Tangent(B, c)
d = Circle(B, Pol)
h = Line(Pol', g)
D, E = Intersect(c, h)
i = Line(Pol, D)
j = Line(Pol, E)
k = Polar(Pol, c)
l = Line(D, f)
m = Line(E, f)
n = Line(Pol, g)
A = Intersect(m, n)
C = Intersect(l, n)
Vieleck1, e, d_1, c_1, a_1 = Polygon(E, D, C, A)