1: Muovere il punto B.
2: Riportare B in x=2, e 
cambiare il valore della carica nel 
suo opposto, usando slider b.
3: Muovere il punto B.

A = Point(xAxis)
B = Point(xAxis)
AB = Vector(A, B)
a = 4 (slider from -5 to 5, step 0.1)
b = 4 (slider from -5 to 5, step 0.1)
k = 1 (slider from -5 to 5, step 0.1)
ABe2: AB * AB
FBAi: k * a * b / ABe2
ABu = UnitVector(AB)
fBA: FBAi * ABu
yfx: (x(B), FBAi)
c = Segment(B, yfx)