p = 8 (slider from 1 to 16, step 1)
l1 = Sequence(Function[i / x, 0.0010, 100.0], i, 1.0, p)
l2 = Sequence(Function[i / x, 0.0010, 100.0], i, 10.0, p, 10.0)
A = Point(xAxis)
B: (0.0, x(A))
a = Segment(A, B)
texte1: "" + (x(A))
texte2: "" + (x(A))
texte3: "Résolution de l'équation 
x² + (" + (-1.0 * 1.0 * x(A)) + ")x + " + p + " = 0"
Δ: x(A)^(2.0) - 4.0 * p
x1: (x(A) - sqrt(Δ)) / 2.0
x2: (x(A) + sqrt(Δ)) / 2.0
E: (x1, x(A) - x1)
F: (x1, 0.0)
G: (x2, x(A) - x2)
H: (x2, 0.0)
texte4: "" + x1
texte5: "" + x2
u = Vector(E, F)
v = Vector(G, H)
texte6: "L'intersection de la droite 
d'équation x+y = " + (x(A)) + " 
et de l'hyperbole 
d'équation xy = " + p + " 
donne les solutions de 
l'équation (en vert)."