Inicia

k: 80
S = (2.0702557316363634, -1.4444502899999814)
T: (-3.90462, 5.06222)
vT = (2.60668, 1.44452)
anima = 14.1 (slider from 0 to 100, step 0.1)
d = Distance(T, S)
T': T
M: (-8.33589, 1.08888)
vM = (2.10461, 0.58462)
gTS: (k * UnitVector[S - T] / Distance[T, S]^(2))
gMS: (k * UnitVector[S - M] / Distance[M, S]^(2))
M': M
k': 1
gMT: ((-k') * UnitVector[M - T] / Distance[T, M]^(2))
gTM: (k' * UnitVector[M - T] / Distance[T, M]^(2))