B'(x)

x

obere Treppenfunktion

untere Treppenfunktion

n = 7 (slider from 1 to 100, step 1)
b = 7 (slider from -5 to 10)
a = 0 (slider from -5 to 5)
d: (b - a) / n
Intervallpunkte = Sequence((a + (i * d) | 0), i, 0, n)
g(x) = (((0.1 * x) * (x - 3)) * (x - 6))
Intervall = Segment((0 | 0), (7 | 0))
X = Point(Intervallpunkte)
t: x(X)
gl1: x = x(X)
U = LowerSum(g, a, b, n)
O = UpperSum(g, a, b, n)
Werte = 1 (slider from -5 to 5)
OWerte = Append((a | 0), Sequence[(a + (i * d) | UpperSum[g, a, x(Element[Intervallpunkte, i + 1]), i]), i, 1, n])
UWerte = Append((a | 0), Sequence[(a + (i * d) | LowerSum[g, a, x(Element[Intervallpunkte, i + 1]), i]), i, 1, n])
e = false
c = false