f(x) =

Obersumme

Untersumme

(Abschnitte)

f(x) = x^(3) + x^(2) + 1
a = Point(xAxis)
b = Point(xAxis)
n = 10 (slider from 1 to 100, step 1)
x_a: x(a)
x_b: x(b)
d: (x_b - x_a) / n
L_o = Sequence(Polygon[{Point[{i, (i * 0)}], Point[{i, y(Max[f, i, i + d])}], Point[{i + d, y(Max[f, i, i + d])}], Point[{i + d, 0}]}], i, x_a, x_b - d, d)
L_u = Sequence(Polygon[{Point[{i, (i * 0)}], Point[{i, y(Min[f, i, i + d])}], Point[{i + d, y(Min[f, i, i + d])}], Point[{i + d, 0}]}], i, x_a, x_b - d, d)
A_o = Sum(Zip[Area[P], P, L_o])
A_u = Sum(Zip[Area[P], P, L_u])
InputBox1 = Textfield(f)
text_o: "A = " + A_o + ""
text_u: "A = " + A_u + ""
c = false
e = true
A = Point({x(a), f(x(a))})
B = Point({x(b), f(x(b))})
h = Segment(a, A)
i = Segment(b, B)