n

x_n

f(x)=

x_0=

+

-

step

→

←

↓

↑

reset

x_{0}

iterate

f(x) = 1 + (0.8 * x)
x0 = 0.5
n = 2
list1 = IterationList(f, x0, n)
steppart = 0
nR = If(steppart ≟ 0, n, n - 1)
height = 5.083731656658
center = (3.1423441071685456, 2.1790304625599974)
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)
activehorizontal = Segment(Q, (x(R), y(Q)))
activevertical = Segment(R, (x(R), y(Q)))
horizlong = Sequence(Segment[Element[oncurves, i], (0, y(Element[oncurves, i]))], i, 1, n)
vertlong = Sequence(Segment[(x(Element[oncurves, i]), 0), Element[oncurves, i]], i, 2, n)
X_{0} = Point(xAxis)
initialvert = Segment(X_{0}, (x0, f(x0)))
text1: "x_{" + n + "}"
text2: "x_{" + nR + "}"
details = true
horizsegs = Sequence(Segment[Element[oncurves, i], Element[diagonals, i]], i, 1, nR + 1)