Iteration für den Turm von Hanoi
Author: Prof. Dr. Dörte Haftendorn

Ziehe n, die Anzahl der Scheiben. Darunter steht als letztes die Zahl den nötigen Umlegungen.

Begrenztes Wachstum

Ha Aug. 08

y=x

Begrenztes  Wachstum

d = 4 (slider from -5 to 5, step 0.05)
m = 0.7 (slider from 0 to 10, step 0.1)
r = 20
k = 2
f(x) = (m * x) + d
c = 0.20000000000000004
n = 7 (slider from 1 to 15, step 1)
A: (1, 0)
x0: x(A)
L1 = IterationList(f, x0, n)
g(x) = x
L3 = Sequence(Segment[(Element[L1, i], Element[L1, i + 1]), (Element[L1, i + 1], Element[L1, i + 1])], i, 1, n - 1)
L4 = Sequence(Segment[(Element[L1, i + 1], Element[L1, i + 1]), (Element[L1, i + 1], Element[L1, i + 2])], i, 1, n - 1)
y_A = Segment((x0, 0), (x0, f(x0)))
ntes = Element(L1, n + 1)
a = Segment((Element[L1, 2], 0), (Element[L1, 2], Element[L1, 2]))
Liste1 = Sequence(Segment[(0, Element[L1, i + 1]), (Element[L1, i], Element[L1, i + 1])], i, 1, n - 1)
Text1: "f(x) = " + f
L2 = Sequence(Element[L1, i], i, 1, n)
Text4: L2 + ""
pli = Sequence((i, Element[L2, i + 1]), i, 1, n)
h(x) = (x(A) * m^(x)) + ((1 - m^(x)) / (1 - m) * d)
yli = Sequence(Segment[(0, Element[L2, j + 1]), (20, Element[L2, j + 1])], j, 1, n - 1)
B = Point(yAxis)
i = OrthogonalLine(B, yAxis)
j = OrthogonalLine(Element[pli, 1], yAxis)
l = OrthogonalLine(Element[pli, 2], yAxis)
p = OrthogonalLine(Element[pli, 3], yAxis)
q = OrthogonalLine(Element[pli, 4], yAxis)
s = OrthogonalLine(Element[pli, 5], yAxis)