A4: 140
A3: 100
A2: 50
A1: 3
seuil: {A1, A2, A3, A4}
f(x) = 1 / x^(2)
A: (0, SelectedElement[seuil])
a = OrthogonalLine(A, yAxis)
B = Intersect(f, a, (-0.5773502708502758, 2.9999999827420187))
C = Mirror(B, yAxis)
b = OrthogonalLine(B, xAxis)
D = Intersect(b, xAxis)
E = Mirror(D, yAxis)
c = Segment(B, D)
d = Segment(C, E)
texte1: "D : " + D + ""
texte2: "E: " + E + ""