x

a = 0.5 (slider from -5 to 5, step 0.1)
A = Point(yAxis)
f(x) = a * x^(2.0)
B = Point(xAxis)
a_2 = Integral(f(x), 0.0, x(B))
d = Segment((0.0, 0.0), A)
c = Segment((0.0, 0.0), B)
n = 3 (slider from 1 to 10, step 1)
e = OrthogonalLine(B, xAxis)
C = Intersect(f, e)
g = Segment(B, C)
h = UpperSum(f(x), 0.0, x(B), n)
Liste1 = Sequence((i, f(i)), i, 0.0, x(B), x(B) / n)
Text1: "A_{Obersumme} = " + h + " E^2"