Início

A: (10.5, 5)
B1: (6.0344, -1.7116)
B13: B1
anima = 1 (slider from 0 to 1, step 0.01)
k = 0.5
r1: 1
puntos: CellRange(B1,B12,"point")
puntosC = Join({puntos, {B1}})
vectoresReg = Sequence(Vector[Element[puntosC, k], Element[puntosC, k + 1]] - (r1 * UnitVector[Element[puntosC, k + 1] - Element[puntosC, k]]), k, 1, 12)
A1: 1
A2: 2
A3 = 3
A4 = 4
A5 = 5
A6 = 6
A7 = 7
A8 = 8
A9 = 9
A10 = 10
A11 = 11
A12 = 12
Centro: Sum[puntos] / 12
B2: (5.25176, -1.02732)
B3: (4.91532, -0.10653)
B4: (5.14385, 0.86069)
B5: (5.86993, 1.6317)
B6: (6.86306, 1.95232)
B7: (7.84855, 1.73834)
B8: (8.58195, 1.07161)
B9: (8.89203, 0.13788)
B10: (8.70335, -0.83218)
B11: (8.04299, -1.59366)
B12: (7.06278, -1.92378)
c = Circle(A, 0.5)
vectoresA = Sequence(UnitVector[Element[puntos, k] - A] / (abs(Element[puntos, k] - A))^(2), k, 1, 12)
vectoresReg2 = Sequence((abs(Element[puntos, k] - Centro) / 5 * (Vector[Element[puntos, k], Centro] - ((1.93 * r1) * UnitVector[Centro - Element[puntos, k]]))), k, 1, 12)
A13 = NaN
b = Spline(CellRange(B1,B13,"point"), 3)
C1: (k * (Element[vectoresReg, A1] + Element[vectoresReg2, A1] + Element[vectoresA, A1]))
C2: (k * (Element[vectoresReg, A2] + Element[vectoresReg2, A2] + Element[vectoresA, A2]))
C3: (k * (Element[vectoresReg, A3] + Element[vectoresReg2, A3] + Element[vectoresA, A3]))
C4: (k * (Element[vectoresReg, A4] + Element[vectoresReg2, A4] + Element[vectoresA, A4]))
C5: (k * (Element[vectoresReg, A5] + Element[vectoresReg2, A5] + Element[vectoresA, A5]))
C6: (k * (Element[vectoresReg, A6] + Element[vectoresReg2, A6] + Element[vectoresA, A6]))
C7: (k * (Element[vectoresReg, A7] + Element[vectoresReg2, A7] + Element[vectoresA, A7]))
C8: (k * (Element[vectoresReg, A8] + Element[vectoresReg2, A8] + Element[vectoresA, A8]))
C9: (k * (Element[vectoresReg, A9] + Element[vectoresReg2, A9] + Element[vectoresA, A9]))
C10: (k * (Element[vectoresReg, A10] + Element[vectoresReg2, A10] + Element[vectoresA, A10]))
C11: (k * (Element[vectoresReg, A11] + Element[vectoresReg2, A11] + Element[vectoresA, A11]))
C12: (k * (Element[vectoresReg, A12] + Element[vectoresReg2, A12] + Element[vectoresA, A12]))