lineares Wachstum

exponentielles Wachstum

Wachstum im Vergleich

Neue Zuwachswerte

linear

exponentiell

x-Wert

y-Wert

schritt = 5 (slider from 0 to 10, step 1)
b = false
zw_1: Random[1, 10] / 10
zw_2: round(((1 + random()) * 100)) / 100
Text1: "Zuwachs = " + zw_1 + ""
a = false
Text2: "Zuwachs = " + (((zw_2 - 1) * 100)) + "%"
linear = Sequence(Polygon[(k - 0.5, 0), (k + 0.5, 0), (k + 0.5, (k * zw_1)), (k - 0.5, (k * zw_1))], k, 0, schritt)
zuw_1 = Sequence(Polygon[(k - 0.5, ((k - 1) * zw_1)), (k + 0.5, ((k - 1) * zw_1)), (k + 0.5, (k * zw_1)), (k - 0.5, (k * zw_1))], k, 1, schritt)
g = Segment((0, 0), (10, (10 * zw_1)))
zuw_2 = Sequence(Polygon[(k - 0.5, zw_2^(k - 1)), (k + 0.5, zw_2^(k - 1)), (k + 0.5, zw_2^(k)), (k - 0.5, zw_2^(k))], k, 1, schritt)
f(x) = If[0 < x < 10,zw_2^(x)]
expo = Sequence(Polygon[(k - 0.5, 0), (k + 0.5, 0), (k + 0.5, zw_2^(k)), (k - 0.5, zw_2^(k))], k, 0, schritt)
T_2 = Sequence(Text["+" + (((zw_2 - 1) * 100)) + " %", (k - 0.3, zw_2^(k) + 0.1)], k, 1, schritt)
Text5: "Zuwachs ist stets der gleiche Wert, nämlich " + zw_1 + "."
T_1 = Sequence(Text["+" + zw_1, (k - 0.1, (k * zw_1) + 0.1)], k, 1, schritt)
Text4: "Zuwachs beträgt stets " + (((zw_2 - 1) * 100)) + "% von der 
vorhergehenden Säule. Deshalb kann das auch
richtig “explodieren”. Beobachte, ab welcher
Zuwachsrate dies der Fall ist."