Ha 2016

k = -0.6 (slider from -5 to 5, step 0.1)
f(x) = x^(3) + (k * x)
O = (0, 0)
A = Point(f)
a = Tangent(A, f)
A' = Mirror(A, O)
a' = Mirror(a, O)
b = OrthogonalLine(A', xAxis)
c = OrthogonalLine(A, xAxis)
B, C = Intersect(f, a)
C' = Mirror(C, O)
d = OrthogonalLine(C, xAxis)
e = Line(O, a)
g = OrthogonalLine(C', xAxis)
D = Intersect(yAxis, a)
E = Intersect(c, e)
F = Intersect(g, a)
G = Intersect(a', d)
Vieleck1, a_1, e_1, o, d_1 = Polygon(A, E, O, D)
H = Intersect(a', yAxis)
I = Intersect(e, b)
J = Intersect(b, a)
K = Intersect(c, a')
L = Intersect(e, g)
Vieleck2, o_1, h, a'_1, i = Polygon(O, H, A', I)
Vieleck3, l, e_2, k_1, c' = Polygon(L, E, K, C')
M = Intersect(d, e)
Vieleck4, j, i_1, m, c_1 = Polygon(J, I, M, C)
Vieleck5, f_1, c_2, g_1, c'_1 = Polygon(F, C, G, C')
E' = Mirror(E, A)
n = Line(E', f_1)
n' = Mirror(n, O)
p = Line(O, c)
q = Tangent(O, f)
r = Tangent(C', f)
N = Intersect(r, n)
E'' = Mirror(E', N)
P = Intersect(g, n)