a = 2 (slider from -5 to 5, step 1)
M: (a, 0)
O: (0, 0)
kr = Circle(M, O)
c: (((2 * a) - x) * y^(2)) = x^(3)
A, P', P = Intersect(c, kr)
f = Segment(O, P)
g = Segment(O, P')
e = IntegralBetween((-x), (-sqrt(((2 * a) * x) - x^(2))), 0, a)
d = IntegralBetween(sqrt(((2 * a) * x) - x^(2)), sqrt(x^(3) / ((2 * a) - x)), 0, a)
h = IntegralBetween((-sqrt(x^(3) / ((2 * a) - x))), (-sqrt(((2 * a) * x) - x^(2))), 0, a)
E_1: (0, (-a))
E_2: ((2 * a), (-a))
Vieleck1, j, k, l, m, D, E = Polygon(E_1, E_2, 4)