y=x

y=f(x)

u_0 = -1 (slider from -2 to 6, step 0.5)
n = 0 (slider from 0 to 10, step 1)
f(x) = sqrt(x + 2)
Termes = IterationList(f, u_0, n + 1)
U_0: (u_0, 0)
U_n: (Element[Termes, n + 1], 0)
a = Segment((u_0, 0), (u_0, f(u_0)))
liste1 = Sequence(Segment[(Element[Termes, k], 0), (Element[Termes, k], f(Element[Termes, k]))], k, 1, n)
liste2 = Sequence(Segment[(Element[Termes, k], f(Element[Termes, k])), (f(Element[Termes, k]), f(Element[Termes, k]))], k, 0, n)
b = Segment((u_0, f(u_0)), (f(u_0), f(u_0)))
d: y > 4.2
liste3 = Sequence(Segment[(Element[Termes, k + 1], 0), (Element[Termes, k + 1], Element[Termes, k + 1])], k, 1, n)