x

B'(x)

B(x)

B(x)

Änderungsrate B'(x)

Bestand B(x)

Intervall = Segment((0 | 0), (7 | 0))
X = Point(Intervall)
t: x(X)
gl1: x = x(X)
g(x) = (((0.1 * x) * (x - 3)) * (x - 6))
S1 = Sequence(Intersect[g, x = i + 0.5], i, 0, 7)
W = Sequence(y(Element[S1, i]), i, 1, 7)
T = Sequence(Segment[(i | Element[W, i + 1]), (i + 1 | Element[W, i + 1])], i, 0, 7)
BW = Sequence((i | Sum[Sequence[Element[W, j], j, 1, i]]), i, 0, 7)
Y = Element(BW, x(X) + 1)
R = Sequence(Polygon[(i | 0), (i + 1 | 0), (i + 1 | Element[W, i + 1]), (i | Element[W, i + 1])], i, 0, x(X) - 1)
Ah = Element(W, x(X))
Text1: "" + Ah + ""