A = (2, 2)
B = (5, 2)
AB = Vector(A, B)
a = -2 (slider from -5 to 5, step 0.1)
b = 3 (slider from -5 to 5, step 0.1)
k = 2 (slider from -5 to 5, step 0.1)
ABe2: AB * AB
fIntensitaSegno: k * a * b / ABe2
ABu = UnitVector(AB)
fVector: -1.0 * 1.0 * 1.0 * 1.0 * 1.0 * fIntensitaSegno * ABu
A' = Translate(A, fVector)
fVectorApplied = Vector(A, A')