n

x_n

f(x)=

x_0=

+

-

→

←

↓

↑

reset

x_{0}

iterate

x_{0}

f(x) = 1 + (0.8 * x)
x0 = 0.5
n = 2
list1 = IterationList(f, x0, n)
steppart = 1
nR = If(steppart ≟ 0, n, n - 1)
height = 5.083731656658
center = (4.488509859213221, 2.6874036282257974)
A2 = 0
B2: x0
inputBox1 = Textfield(f)
inputBox2 = Textfield(x0)
oncurves = Sequence((Element[list1, i], Element[list1, i + 1]), i, 1, n)
maxy: height + y(center)
maxx: x(center) + (height * x(Corner[1, 5]) / y(Corner[1, 5]))
miny: y(center) - height
minx: x(center) - (height * x(Corner[1, 5]) / y(Corner[1, 5]))
diagonals = Sequence((Element[list1, i], Element[list1, i]), i, 2, nR + 1)
initialized = false
vertsegs = Sequence(Segment[Element[diagonals, i - 1], Element[oncurves, i]], i, 2, n)
Q: (0, Element[list1, n + 1])
R: (Element[list1, nR + 1], 0)
X_{0} = Point(xAxis)
initialvert = Segment(X_{0}, (x0, f(x0)))
text1: "x_{" + n + "}"
text2: "x_{" + nR + "}"
horizsegs = Sequence(Segment[Element[oncurves, i], Element[diagonals, i]], i, 1, nR + 1)
list2 = Sequence((i, Element[list1, i + 1]), i, 0, n)
maxx2: (Max[20, (ceil((n * 0.1)) * 10)] * 1.05)
minx2: ((-maxx2)) / 10
X2_{0} = Point(yAxis)
segments = Sequence(Segment[Element[list2, i], Element[list2, i + 1]], i, 1, n)