Suite html
Author: VV

U = -0.66 (slider from -1 to 1, step 0.01)
n = 9 (slider from 0 to 80, step 1)
f(x) = x^(2.0) - 1.0
U_1 = -0.7100000000000004 (slider from -1 to 1, step 0.01)
B: (U, f(U))
L1 = IterationList(f, U, n)
L3 = Sequence(Segment[(Element[L1, i], Element[L1, i + 1.0]), (Element[L1, i + 1.0], Element[L1, i + 1.0])], i, 1.0, n - 1.0)
L4 = Sequence(Segment[(Element[L1, i], Element[L1, i]), (Element[L1, i], Element[L1, i + 1.0])], i, 2.0, n - 1.0)
A: (U, 0.0)
b = Segment(A, B)