O = (-1.22, 4.92)
A1 = (-0.68, 7.76)
A2 = (-1.72, 1)
puntos: A1:A10
A3 = (2.94, 5.16)
t = 0.28 (slider from 0 to 1, step 0.01)
P = (9.572733707393938, 2.0838169774401996)
repulsiones = Sequence(UnitVector[Vector[Element[puntos, k], P]] / abs(Element[puntos, k] - P)^(2), k, 1, Length[puntos])
atractor = UnitVector(Vector[P, O])
inc = 0.2
A4 = (1.06, 2.5)
A5 = (0.78, 5.68)
A6 = (1.02, 4.38)
A7 = (4.02, 3.76)
A8 = (2.54, 2.74)
A9 = (-0.72, 2.74)
A10 = (2.1, 6.54)
avanza: atractor + Sum[repulsiones]