A = (5.956349095575284, 0.5367083284938525)
p = Circle(A, 10)
anima = 0.288 (slider from 0 to 1)
n: 10
A1 = (4.556271893481991, -7.714315441134485)
A2 = (6.173662197031218, 4.395376062362396)
A3 = (1.0726620089144154, -5.931038952605836)
A4 = (8.869312702946603, -7.382543071175668)
A5 = (11.8137924863311, 5.8883517271770796)
A6 = (-0.5412420306520438, -1.8144376497361874)
A7 = (12.974995781186957, -1.3691688656720793)
A8 = (4.1000848847886155, -1.1618111344478175)
A9 = (12.187036402534767, 1.5338393714675844)
A10 = (10.859946922699502, -3.4842177241595484)
puntos: A1:A20
B1 = RemoveUndefined(Sequence[Vector[Element[puntos, k], A1] / Distance[Element[puntos, k], A1]^(3), k, 1, n])
B2 = RemoveUndefined(Sequence[Vector[Element[puntos, k], A2] / Distance[Element[puntos, k], A2]^(2), k, 1, n])
B3 = RemoveUndefined(Sequence[Vector[Element[puntos, k], A3] / Distance[Element[puntos, k], A3]^(2), k, 1, n])
B4 = RemoveUndefined(Sequence[Vector[Element[puntos, k], A4] / Distance[Element[puntos, k], A4]^(2), k, 1, n])
B5 = RemoveUndefined(Sequence[Vector[Element[puntos, k], A5] / Distance[Element[puntos, k], A5]^(2), k, 1, n])
B6 = RemoveUndefined(Sequence[Vector[Element[puntos, k], A6] / Distance[Element[puntos, k], A6]^(2), k, 1, n])
B7 = RemoveUndefined(Sequence[Vector[Element[puntos, k], A7] / Distance[Element[puntos, k], A7]^(2), k, 1, n])
B8 = RemoveUndefined(Sequence[Vector[Element[puntos, k], A8] / Distance[Element[puntos, k], A8]^(2), k, 1, n])
B9 = RemoveUndefined(Sequence[Vector[Element[puntos, k], A9] / Distance[Element[puntos, k], A9]^(2), k, 1, n])
B10 = RemoveUndefined(Sequence[Vector[Element[puntos, k], A10] / Distance[Element[puntos, k], A10]^(2), k, 1, n])
C1: 1
C2: 2
C3 = 3
C4 = 4
C5 = 5
C6 = 6
C7 = 7
C8 = 8
C9 = 9
C10 = 10
D1 = Join({{UnitVector[Vector[Element[puntos, C1], A]] / Distance[Element[puntos, C1], p]^(2)}, B1})
D2 = Join({{Vector[Element[puntos, C2], A] / Distance[Element[puntos, C2], p]^(2)}, B2})
D3 = Join({{Vector[Element[puntos, C3], A] / Distance[Element[puntos, C3], p]^(2)}, B3})
D4 = Join({{Vector[Element[puntos, C4], A] / Distance[Element[puntos, C4], p]^(2)}, B4})
D5 = Join({{Vector[Element[puntos, C5], A] / Distance[Element[puntos, C5], p]^(2)}, B5})
D6 = Join({{Vector[Element[puntos, C6], A] / Distance[Element[puntos, C6], p]^(2)}, B6})
D7 = Join({{Vector[Element[puntos, C7], A] / Distance[Element[puntos, C7], p]^(2)}, B7})
D8 = Join({{Vector[Element[puntos, C8], A] / Distance[Element[puntos, C8], p]^(2)}, B8})
D9 = Join({{Vector[Element[puntos, C9], A] / Distance[Element[puntos, C9], p]^(2)}, B9})
D10 = Join({{Vector[Element[puntos, C10], A] / Distance[Element[puntos, C10], p]^(2)}, B10})
E1 = Sum(D1)
E2 = Sum(D2)
E3 = Sum(D3)
E4 = Sum(D4)
E5 = Sum(D5)
E6 = Sum(D6)
E7 = Sum(D7)
E8 = Sum(D8)
E9 = Sum(D9)
E10 = Sum(D10)
l1 = Sequence(Sequence[Segment[Element[puntos, k], Element[puntos, t]], t, 1, n], k, 1, n)
texto1: "" + E1 + ""
texto2: "" + E2 + ""
texto3: "" + E3 + ""
texto4: "" + E4 + ""
texto5: "" + E5 + ""
texto6: "" + E6 + ""
texto7: "" + E7 + ""
texto8: "" + E8 + ""
texto9: "" + E9 + ""
texto10: "" + E10 + ""