A = (3, 4)
B = (5, 2)
ABVT = Vector(A, B)
a = -3 (slider from -5 to 5, step 0.1)
b = 3 (slider from -5 to 5, step 0.1)
k = 2
ABe2: ABVT * ABVT
fBIntensitaSegno: k * a * b / ABe2
ABVTU = UnitVector(ABVT)
fBVector: -1.0 * 1.0 * 1.0 * 1.0 * 1.0 * fBIntensitaSegno * ABVTU
A' = Translate(A, fBVector)
fBVectorApplied = Vector(A, A')
C = (1, 2)
c = 2 (slider from -5 to 5, step 0.1)
ACVT = Vector(A, C)
ACVTU = UnitVector(ACVT)
ACe2: ACVT * ACVT
fCIntensitaSegno: k * a * c / ACe2
fCVector: -1.0 * ACVTU * fCIntensitaSegno
A'_1 = Translate(A, fCVector)
fCVectorApplied = Vector(A, A'_1)
fRis: fBVectorApplied + fCVectorApplied
A'_2 = Translate(A, fRis)
fRisApplied = Vector(A, A'_2)