p = 2 (slider from 1 to 25, step 1)
f(x) = 1 / 2 * (x + p / x)
A = Intersect(f, b, (1.4142135601558832, 1.414213562373095))
texte1: "\sqrt{p}=" + (LaTeX[A]) + ""
A0: (1, f(1))
A1: (f(1), f(f(1)))
A2: (f(f(1)), f(f(f(1))))
B = Intersect(a, b)
C = Point(xAxis)
u = Vector(B, C)
D = Point(yAxis)
v = Vector(B, D)