f(x) = (1 / 4 * x^(2)) + 1
r = 4 (slider from -5 to 10, step 0.5)
n = 1 (slider from 1 to 100, step 1)
dx: r / n
Sehnen = Sequence(Segment[((i * dx), f((i * dx))), (((i + 1) * dx), f(((i + 1) * dx)))], i, 0, n - 1)
Text4 = Text("G. Roolfs")
ATangententrapeze = Sum(Sequence[(f((i * dx) + (0.5 * dx)) * dx), i, 0, n - 1])
ASehnentrapeze = Sum(Sequence[((f((i * dx)) + f(((i + 1) * dx))) * dx / 2), i, 0, n - 1])
Unterteilung = Sequence(Segment[((i * dx), 0), ((i * dx), f((i * dx)))], i, 1, n)
f'(x) = f'(x)
Tangententrapeze = Sequence(Segment[((i * dx), f((i * dx) + (0.5 * dx)) - (f'((i * dx) + (0.5 * dx)) * dx / 2)), (((i + 1) * dx), f((i * dx) + (0.5 * dx)) + (f'((i * dx) + (0.5 * dx)) * dx / 2))], i, 0, n - 1)
Aexakt = Integral(f, 0, r)
Beruehrpunkte = Sequence(((i * dx) + (0.5 * dx), f((i * dx) + (0.5 * dx))), i, 0, n - 1)
text1: "Inhalt 
aller Sehnentrapeze  " + ASehnentrapeze + "
aller Tangententrapeze  " + ATangententrapeze + "
exakt  " + Aexakt + ""
TS = TrapezoidalSum(f, 0, r, n)