A = Point(xAxis)
B = Point(xAxis)
u = 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: u * u
F: k * a * b / ABe2
u1 = UnitVector(u)
fVT: F * u1
fVectorApplied = Vector(B, B + fVT)