B e' la carca posta all'estremo del segmento,
per comodo posta  in 1, cmq mobile.
E(x) e' l'en potenziale, solo la parte che varia al
variare della posizione x della carica A.
E' e' la derivata, che serve per calcolare il minimo.
k e' una k di comodo per abbassare E(x) per
renderla visibile nella finestra.

k = 0.1
A = Point(xAxis)
B = Point(xAxis)
A' = Mirror(A, yAxis)
B' = Mirror(B, yAxis)
L: x(B)
E(x) = k * (2 / (L + x) + 2 / (L - x) + 1 / (2 * abs(x)))
E'(x) = k * (-2 / (L + x)^(2) + 2 / (L - x)^(2) - 1 / (2 * x * abs(x)))
E_A: (x(A), E(x(A)))
a = Segment(A, E_A)
minE = Intersect(E', xAxis, (0.3614797084177277, -4.4408920985006264E-17))