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