Start

SetValue(v, v + 0.03 g)
SetValue(T, T + 0.03 v)

g = k / d² UnitVector(S-T)

k: 80
S = (2.0702557316363634, -1.4444502899999814)
T: (-3.90462, 5.06222)
v = (2.60668, 1.44452)
anima = 0.42 (slider from 0 to 1, step 0.01)
d = Distance(T, S)
T': T
g: (k / d^(2) * UnitVector[S - T])