Parallelphänomen

a: 1 / 16
c = 2 (slider from -5 to 5)
A: ((-2 * c), ((2 * a) * c^(3)))
A' = Mirror(A, yAxis)
A'' = Mirror(A', xAxis)
A''' = Mirror(A'', yAxis)
f(x) = (1 / 16 * (x * (x^(2) - (3 * c^(2)))))
f'(x) = f'(x)
f''(x) = f''(x)
h: y = (((-3 * a) * c^(2)) * x)
i = Tangent(A''', f)
O: (0, 0)
i' = Mirror(i, O)
v1, a_1, a', a'', a''' = Polygon(A, A', A'', A''')
S = Intersect(i, h)
C, D, B = Root(f)
g = Tangent(C, f)
F = Midpoint(A, A''')
j = Line(F, g)
b = false
E_1, E_2 = Extremum(f)