a = 1.1 (slider from 0 to 20, step 0.1)
A = Point(yAxis)
B = Point(Circle[A, a])
f = Segment(A, B)
C = Point(Circle[A, a])
g = Segment(A, C)
h(x) = ((abs(x) * abs(x)) * abs(x))
i = OrthogonalLine(C, xAxis)
j = OrthogonalLine(B, xAxis)
D = Intersect(h, i, (-1.1, 1.3310000000000004))
E = Intersect(h, j, (1.1, 1.3310000000000004))
k = Segment(D, C)
l = Segment(E, B)