f(x) = x^(3)
m = 3 (slider from 0 to 3, step 0.01)
g(x) = m * x
A, B, C = Intersect(f, g)
a = OrthogonalLine(C, xAxis)
D = Intersect(a, xAxis)
Vieleck1, c, b, d = Polygon(B, D, C)