Círculos

Dibujo realizado con 39 epiciclos

p: {(-1.28, -3.4), (-1.06, -3.62), (-0.72, -3.74), (-0.38, -3.82), (0.02, -3.86), (0.38, -3.82), (0.72, -3.74), (1.06, -3.62), (1.28, -3.4), (1.1, -3.22), (0.84, -3.16), (0.58, -3.1), (0.24, -3.04), (0.16, -2.72), (0.16, -2.44), (0.14, -2.12), (0.16, -1.86), (0.18, -1.56), (0.22, -1.28), (0.28, -0.96), (0.44, -0.76), (0.62, -0.6), (0.8, -0.38), (1.02, -0.08), (1.2, 0.26), (1.32, 0.54), (1.36, 0.86), (1.34, 1.22), (1.32, 1.5), (1.3, 1.84), (1.24, 2.2), (1.18, 2.56), (1.1, 2.94), (1.04, 3.22), (0.96, 3.52), (0.92, 3.72), (0.62, 3.62), (0.36, 3.58), (0, 3.54), (-0.36, 3.58), (-0.62, 3.62), (-0.92, 3.72), (-0.64, 3.84), (-0.32, 3.9), (0.02, 3.92), (0.32, 3.9), (0.64, 3.84), (0.92, 3.72), (0.62, 3.62), (0.36, 3.58), (0, 3.54), (-0.36, 3.58), (-0.62, 3.62), (-0.92, 3.72), (-0.96, 3.52), (-1.04, 3.22), (-1.1, 2.94), (-1.18, 2.56), (-1.24, 2.2), (-1.3, 1.84), (-1.32, 1.5), (-1.34, 1.22), (-1.36, 0.86), (-1.32, 0.54), (-1.2, 0.26), (-1.02, -0.08), (-0.8, -0.38), (-0.62, -0.6), (-0.44, -0.76), (-0.28, -0.96), (-0.22, -1.28), (-0.18, -1.56), (-0.16, -1.86), (-0.14, -2.12), (-0.16, -2.44), (-0.16, -2.72), (-0.24, -3.04), (-0.58, -3.1), (-0.84, -3.16), (-1.1, -3.22)}
Fy: C1:C80
Fx: B1:B80
n = Length(p)
centros0: F1:F78
m: n / 2 + Mod[n, 2] / 2
N = 39 (slider from 1 to m - 1, step 1)
fase = -3.141592653589793 (slider from (-π) to π, step 0.01)
verCírculos = true
A1: (-m) + 1
A2: A1 + 1
A3 = -37
A4 = -36
A5 = -35
A6 = -34
A7 = -33
A8 = -32
A9 = -31
A10 = -30
A11 = -29
A12 = -28
A13 = -27
A14 = -26
A15 = -25
A16 = -24
A17 = -23
A18 = -22
A19 = -21
A20 = -20
A21 = -19
A22 = -18
A23 = -17
A24 = -16
A25 = -15
A26 = -14
A27 = -13
A28 = -12
A29 = -11
A30 = -10
A31 = -9
A32 = -8
A33 = -7
A34 = -6
A35 = -5
A36 = -4
A37 = -3
A38 = -2
A39 = -1
A40 = 0
A41 = 1
A42 = 2
A43 = 3
A44 = 4
A45 = 5
A46 = 6
A47 = 7
A48 = 8
A49 = 9
A50 = 10
A51 = 11
A52 = 12
A53 = 13
A54 = 14
A55 = 15
A56 = 16
A57 = 17
A58 = 18
A59 = 19
A60 = 20
A61 = 21
A62 = 22
A63 = 23
A64 = 24
A65 = 25
A66 = 26
A67 = 27
A68 = 28
A69 = 29
A70 = 30
A71 = 31
A72 = 32
A73 = 33
A74 = 34
A75 = 35
A76 = 36
A77 = 37
A78 = 38
A79 = 39
A80 = 40
B1 = Sum(Sequence[((cos((((A1 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A1 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B2 = Sum(Sequence[((cos((((A2 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A2 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B3 = Sum(Sequence[((cos((((A3 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A3 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B4 = Sum(Sequence[((cos((((A4 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A4 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B5 = Sum(Sequence[((cos((((A5 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A5 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B14 = Sum(Sequence[((cos((((A14 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A14 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B15 = Sum(Sequence[((cos((((A15 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A15 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B16 = Sum(Sequence[((cos((((A16 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A16 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B17 = Sum(Sequence[((cos((((A17 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A17 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B18 = Sum(Sequence[((cos((((A18 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A18 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B19 = Sum(Sequence[((cos((((A19 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A19 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B20 = Sum(Sequence[((cos((((A20 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A20 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B21 = Sum(Sequence[((cos((((A21 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A21 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B22 = Sum(Sequence[((cos((((A22 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A22 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B23 = Sum(Sequence[((cos((((A23 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A23 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B24 = Sum(Sequence[((cos((((A24 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A24 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B25 = Sum(Sequence[((cos((((A25 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A25 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B26 = Sum(Sequence[((cos((((A26 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A26 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B27 = Sum(Sequence[((cos((((A27 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A27 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B28 = Sum(Sequence[((cos((((A28 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A28 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B29 = Sum(Sequence[((cos((((A29 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A29 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B30 = Sum(Sequence[((cos((((A30 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A30 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B31 = Sum(Sequence[((cos((((A31 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A31 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B32 = Sum(Sequence[((cos((((A32 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A32 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B33 = Sum(Sequence[((cos((((A33 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A33 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B34 = Sum(Sequence[((cos((((A34 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A34 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B35 = Sum(Sequence[((cos((((A35 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A35 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B36 = Sum(Sequence[((cos((((A36 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A36 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B37 = Sum(Sequence[((cos((((A37 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A37 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B38 = Sum(Sequence[((cos((((A38 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A38 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B39 = Sum(Sequence[((cos((((A39 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A39 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B40 = Sum(Sequence[((cos((((A40 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A40 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B41 = Sum(Sequence[((cos((((A41 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A41 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B42 = Sum(Sequence[((cos((((A42 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A42 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B43 = Sum(Sequence[((cos((((A43 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A43 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B44 = Sum(Sequence[((cos((((A44 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A44 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B45 = Sum(Sequence[((cos((((A45 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A45 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B46 = Sum(Sequence[((cos((((A46 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A46 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B47 = Sum(Sequence[((cos((((A47 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A47 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B48 = Sum(Sequence[((cos((((A48 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A48 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B49 = Sum(Sequence[((cos((((A49 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A49 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B50 = Sum(Sequence[((cos((((A50 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A50 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B51 = Sum(Sequence[((cos((((A51 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A51 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B52 = Sum(Sequence[((cos((((A52 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A52 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B53 = Sum(Sequence[((cos((((A53 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A53 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B54 = Sum(Sequence[((cos((((A54 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A54 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B55 = Sum(Sequence[((cos((((A55 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A55 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B56 = Sum(Sequence[((cos((((A56 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A56 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B57 = Sum(Sequence[((cos((((A57 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A57 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B58 = Sum(Sequence[((cos((((A58 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A58 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B59 = Sum(Sequence[((cos((((A59 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A59 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B60 = Sum(Sequence[((cos((((A60 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A60 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B61 = Sum(Sequence[((cos((((A61 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A61 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B62 = Sum(Sequence[((cos((((A62 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A62 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B63 = Sum(Sequence[((cos((((A63 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A63 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B64 = Sum(Sequence[((cos((((A64 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A64 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B65 = Sum(Sequence[((cos((((A65 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A65 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B66 = Sum(Sequence[((cos((((A66 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A66 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B67 = Sum(Sequence[((cos((((A67 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A67 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B68 = Sum(Sequence[((cos((((A68 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A68 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B69 = Sum(Sequence[((cos((((A69 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A69 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B70 = Sum(Sequence[((cos((((A70 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A70 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B71 = Sum(Sequence[((cos((((A71 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A71 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B72 = Sum(Sequence[((cos((((A72 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A72 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B73 = Sum(Sequence[((cos((((A73 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A73 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B74 = Sum(Sequence[((cos((((A74 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A74 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B75 = Sum(Sequence[((cos((((A75 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A75 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B76 = Sum(Sequence[((cos((((A76 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A76 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B77 = Sum(Sequence[((cos((((A77 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A77 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B78 = Sum(Sequence[((cos((((A78 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A78 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B79 = Sum(Sequence[((cos((((A79 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A79 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B80 = Sum(Sequence[((cos((((A80 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A80 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
C1 = Sum(Sequence[((cos((((A1 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A1 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C2 = Sum(Sequence[((cos((((A2 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A2 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C3 = Sum(Sequence[((cos((((A3 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A3 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C4 = Sum(Sequence[((cos((((A4 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A4 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C5 = Sum(Sequence[((cos((((A5 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A5 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C6 = Sum(Sequence[((cos((((A6 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A6 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C7 = Sum(Sequence[((cos((((A7 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A7 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C8 = Sum(Sequence[((cos((((A8 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A8 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C9 = Sum(Sequence[((cos((((A9 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A9 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C10 = Sum(Sequence[((cos((((A10 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A10 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C11 = Sum(Sequence[((cos((((A11 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A11 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C12 = Sum(Sequence[((cos((((A12 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A12 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C13 = Sum(Sequence[((cos((((A13 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A13 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C14 = Sum(Sequence[((cos((((A14 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A14 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C15 = Sum(Sequence[((cos((((A15 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A15 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C16 = Sum(Sequence[((cos((((A16 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A16 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C17 = Sum(Sequence[((cos((((A17 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A17 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C18 = Sum(Sequence[((cos((((A18 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A18 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C19 = Sum(Sequence[((cos((((A19 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A19 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C20 = Sum(Sequence[((cos((((A20 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A20 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C21 = Sum(Sequence[((cos((((A21 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A21 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C22 = Sum(Sequence[((cos((((A22 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A22 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C23 = Sum(Sequence[((cos((((A23 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A23 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C24 = Sum(Sequence[((cos((((A24 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A24 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C25 = Sum(Sequence[((cos((((A25 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A25 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C26 = Sum(Sequence[((cos((((A26 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A26 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C27 = Sum(Sequence[((cos((((A27 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A27 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C28 = Sum(Sequence[((cos((((A28 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A28 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C29 = Sum(Sequence[((cos((((A29 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A29 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C30 = Sum(Sequence[((cos((((A30 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A30 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C31 = Sum(Sequence[((cos((((A31 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A31 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C32 = Sum(Sequence[((cos((((A32 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A32 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C33 = Sum(Sequence[((cos((((A33 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A33 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C34 = Sum(Sequence[((cos((((A34 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A34 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C35 = Sum(Sequence[((cos((((A35 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A35 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C36 = Sum(Sequence[((cos((((A36 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A36 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C37 = Sum(Sequence[((cos((((A37 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A37 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C38 = Sum(Sequence[((cos((((A38 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A38 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C39 = Sum(Sequence[((cos((((A39 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A39 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C40 = Sum(Sequence[((cos((((A40 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A40 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C41 = Sum(Sequence[((cos((((A41 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A41 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C42 = Sum(Sequence[((cos((((A42 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A42 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C43 = Sum(Sequence[((cos((((A43 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A43 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C44 = Sum(Sequence[((cos((((A44 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A44 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C45 = Sum(Sequence[((cos((((A45 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A45 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C46 = Sum(Sequence[((cos((((A46 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A46 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C47 = Sum(Sequence[((cos((((A47 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A47 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C48 = Sum(Sequence[((cos((((A48 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A48 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C49 = Sum(Sequence[((cos((((A49 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A49 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C50 = Sum(Sequence[((cos((((A50 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A50 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C51 = Sum(Sequence[((cos((((A51 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A51 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C52 = Sum(Sequence[((cos((((A52 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A52 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C53 = Sum(Sequence[((cos((((A53 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A53 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C54 = Sum(Sequence[((cos((((A54 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A54 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C55 = Sum(Sequence[((cos((((A55 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A55 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C56 = Sum(Sequence[((cos((((A56 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A56 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C57 = Sum(Sequence[((cos((((A57 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A57 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C58 = Sum(Sequence[((cos((((A58 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A58 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C59 = Sum(Sequence[((cos((((A59 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A59 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C60 = Sum(Sequence[((cos((((A60 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A60 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C61 = Sum(Sequence[((cos((((A61 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A61 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C62 = Sum(Sequence[((cos((((A62 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A62 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C63 = Sum(Sequence[((cos((((A63 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A63 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C64 = Sum(Sequence[((cos((((A64 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A64 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C65 = Sum(Sequence[((cos((((A65 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A65 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C66 = Sum(Sequence[((cos((((A66 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A66 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C67 = Sum(Sequence[((cos((((A67 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A67 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C68 = Sum(Sequence[((cos((((A68 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A68 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C69 = Sum(Sequence[((cos((((A69 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A69 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C70 = Sum(Sequence[((cos((((A70 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A70 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C71 = Sum(Sequence[((cos((((A71 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A71 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C72 = Sum(Sequence[((cos((((A72 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A72 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C73 = Sum(Sequence[((cos((((A73 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A73 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C74 = Sum(Sequence[((cos((((A74 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A74 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C75 = Sum(Sequence[((cos((((A75 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A75 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C76 = Sum(Sequence[((cos((((A76 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A76 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C77 = Sum(Sequence[((cos((((A77 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A77 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C78 = Sum(Sequence[((cos((((A78 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A78 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C79 = Sum(Sequence[((cos((((A79 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A79 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
C80 = Sum(Sequence[((cos((((A80 * 2) * π) * (t - 1) / n)) * y(p(t))) - (sin((((A80 * 2) * π) * (t - 1) / n)) * x(p(t)))) / n, t, 1, n])
v = Sequence((Fx(m + ((-1)^(k) * floor(k / 2))), Fy(m + ((-1)^(k) * floor(k / 2)))), k, 2, n)
fy = Sum(Sequence[(cos((k * x)) * Fy(m + k)) + (sin((k * x)) * Fx(m + k)) + (cos(((-k) * x)) * Fy(m - k)) + (sin(((-k) * x)) * Fx(m - k)), k, 1, N])
centros = Join({{(Fx(m), Fy(m))}, centros0})
fx = Sum(Sequence[(cos((k * x)) * Fx(m + k)) - (sin((k * x)) * Fy(m + k)) + (cos(((-k) * x)) * Fx(m - k)) - (sin(((-k) * x)) * Fy(m - k)), k, 1, N])
radios = PolyLine(centros)
círculos = Sequence(Circle[centros(k), abs(v(k))], k, 1, (2 * N))
P = Element(centros, (2 * N) + 1)
A: (-2.02747, 1.45034)
D2: m + ((-1)^(A2 + 40) * floor((A2 + 40) / 2))
E2: (Fx(D2), Fy(D2))
D3: m + ((-1)^(A3 + 40) * floor((A3 + 40) / 2))
D4: m + ((-1)^(A4 + 40) * floor((A4 + 40) / 2))
D5: m + ((-1)^(A5 + 40) * floor((A5 + 40) / 2))
D6: m + ((-1)^(A6 + 40) * floor((A6 + 40) / 2))
D7: m + ((-1)^(A7 + 40) * floor((A7 + 40) / 2))
D8: m + ((-1)^(A8 + 40) * floor((A8 + 40) / 2))
D9: m + ((-1)^(A9 + 40) * floor((A9 + 40) / 2))
D10: m + ((-1)^(A10 + 40) * floor((A10 + 40) / 2))
D11: m + ((-1)^(A11 + 40) * floor((A11 + 40) / 2))
D12: m + ((-1)^(A12 + 40) * floor((A12 + 40) / 2))
D13: m + ((-1)^(A13 + 40) * floor((A13 + 40) / 2))
D14: m + ((-1)^(A14 + 40) * floor((A14 + 40) / 2))
D15: m + ((-1)^(A15 + 40) * floor((A15 + 40) / 2))
D16: m + ((-1)^(A16 + 40) * floor((A16 + 40) / 2))
D17: m + ((-1)^(A17 + 40) * floor((A17 + 40) / 2))
D18: m + ((-1)^(A18 + 40) * floor((A18 + 40) / 2))
D19: m + ((-1)^(A19 + 40) * floor((A19 + 40) / 2))
D20: m + ((-1)^(A20 + 40) * floor((A20 + 40) / 2))
D21: m + ((-1)^(A21 + 40) * floor((A21 + 40) / 2))
D22: m + ((-1)^(A22 + 40) * floor((A22 + 40) / 2))
D23: m + ((-1)^(A23 + 40) * floor((A23 + 40) / 2))
D24: m + ((-1)^(A24 + 40) * floor((A24 + 40) / 2))
D25: m + ((-1)^(A25 + 40) * floor((A25 + 40) / 2))
D26: m + ((-1)^(A26 + 40) * floor((A26 + 40) / 2))
D27: m + ((-1)^(A27 + 40) * floor((A27 + 40) / 2))
D28: m + ((-1)^(A28 + 40) * floor((A28 + 40) / 2))
D29: m + ((-1)^(A29 + 40) * floor((A29 + 40) / 2))
D30: m + ((-1)^(A30 + 40) * floor((A30 + 40) / 2))
D31: m + ((-1)^(A31 + 40) * floor((A31 + 40) / 2))
D33: m + ((-1)^(A33 + 40) * floor((A33 + 40) / 2))
D32: m + ((-1)^(A32 + 40) * floor((A32 + 40) / 2))
D34: m + ((-1)^(A34 + 40) * floor((A34 + 40) / 2))
D35: m + ((-1)^(A35 + 40) * floor((A35 + 40) / 2))
D36: m + ((-1)^(A36 + 40) * floor((A36 + 40) / 2))
D37: m + ((-1)^(A37 + 40) * floor((A37 + 40) / 2))
D38: m + ((-1)^(A38 + 40) * floor((A38 + 40) / 2))
D39: m + ((-1)^(A39 + 40) * floor((A39 + 40) / 2))
D40: m + ((-1)^(A40 + 40) * floor((A40 + 40) / 2))
D41: m + ((-1)^(A41 + 40) * floor((A41 + 40) / 2))
D42: m + ((-1)^(A42 + 40) * floor((A42 + 40) / 2))
D43: m + ((-1)^(A43 + 40) * floor((A43 + 40) / 2))
D44: m + ((-1)^(A44 + 40) * floor((A44 + 40) / 2))
D45: m + ((-1)^(A45 + 40) * floor((A45 + 40) / 2))
D46: m + ((-1)^(A46 + 40) * floor((A46 + 40) / 2))
D47: m + ((-1)^(A47 + 40) * floor((A47 + 40) / 2))
D48: m + ((-1)^(A48 + 40) * floor((A48 + 40) / 2))
D49: m + ((-1)^(A49 + 40) * floor((A49 + 40) / 2))
D50: m + ((-1)^(A50 + 40) * floor((A50 + 40) / 2))
D51: m + ((-1)^(A51 + 40) * floor((A51 + 40) / 2))
D52: m + ((-1)^(A52 + 40) * floor((A52 + 40) / 2))
ang = Sequence(Angle[v(k - 1)] + (((-1)^(k) * floor(k / 2)) * fase), k, 2, (2 * N) + 1)
D53: m + ((-1)^(A53 + 40) * floor((A53 + 40) / 2))
D54: m + ((-1)^(A54 + 40) * floor((A54 + 40) / 2))
D55: m + ((-1)^(A55 + 40) * floor((A55 + 40) / 2))
D56: m + ((-1)^(A56 + 40) * floor((A56 + 40) / 2))
D57: m + ((-1)^(A57 + 40) * floor((A57 + 40) / 2))
D58: m + ((-1)^(A58 + 40) * floor((A58 + 40) / 2))
D59: m + ((-1)^(A59 + 40) * floor((A59 + 40) / 2))
D60: m + ((-1)^(A60 + 40) * floor((A60 + 40) / 2))
D61: m + ((-1)^(A61 + 40) * floor((A61 + 40) / 2))
D62: m + ((-1)^(A62 + 40) * floor((A62 + 40) / 2))
D63: m + ((-1)^(A63 + 40) * floor((A63 + 40) / 2))
D64: m + ((-1)^(A64 + 40) * floor((A64 + 40) / 2))
D65: m + ((-1)^(A65 + 40) * floor((A65 + 40) / 2))
D66: m + ((-1)^(A66 + 40) * floor((A66 + 40) / 2))
D67: m + ((-1)^(A67 + 40) * floor((A67 + 40) / 2))
D68: m + ((-1)^(A68 + 40) * floor((A68 + 40) / 2))
D69: m + ((-1)^(A69 + 40) * floor((A69 + 40) / 2))
D70: m + ((-1)^(A70 + 40) * floor((A70 + 40) / 2))
D71: m + ((-1)^(A71 + 40) * floor((A71 + 40) / 2))
D72: m + ((-1)^(A72 + 40) * floor((A72 + 40) / 2))
D73: m + ((-1)^(A73 + 40) * floor((A73 + 40) / 2))
D74: m + ((-1)^(A74 + 40) * floor((A74 + 40) / 2))
D75: m + ((-1)^(A75 + 40) * floor((A75 + 40) / 2))
D76: m + ((-1)^(A76 + 40) * floor((A76 + 40) / 2))
D77: m + ((-1)^(A77 + 40) * floor((A77 + 40) / 2))
D78: m + ((-1)^(A78 + 40) * floor((A78 + 40) / 2))
D79: m + ((-1)^(A79 + 40) * floor((A79 + 40) / 2))
D80: m + ((-1)^(A80 + 40) * floor((A80 + 40) / 2))
E3: (Fx(D3), Fy(D3))
E4: (Fx(D4), Fy(D4))
E5: (Fx(D5), Fy(D5))
E6: (Fx(D6), Fy(D6))
E7: (Fx(D7), Fy(D7))
E8: (Fx(D8), Fy(D8))
E9: (Fx(D9), Fy(D9))
E10: (Fx(D10), Fy(D10))
E11: (Fx(D11), Fy(D11))
E12: (Fx(D12), Fy(D12))
E13: (Fx(D13), Fy(D13))
E14: (Fx(D14), Fy(D14))
E15: (Fx(D15), Fy(D15))
E16: (Fx(D16), Fy(D16))
E17: (Fx(D17), Fy(D17))
E18: (Fx(D18), Fy(D18))
E19: (Fx(D19), Fy(D19))
E20: (Fx(D20), Fy(D20))
E21: (Fx(D21), Fy(D21))
E22: (Fx(D22), Fy(D22))
E23: (Fx(D23), Fy(D23))
E24: (Fx(D24), Fy(D24))
E25: (Fx(D25), Fy(D25))
E26: (Fx(D26), Fy(D26))
E27: (Fx(D27), Fy(D27))
E28: (Fx(D28), Fy(D28))
E29: (Fx(D29), Fy(D29))
E30: (Fx(D30), Fy(D30))
E31: (Fx(D31), Fy(D31))
E32: (Fx(D32), Fy(D32))
E33: (Fx(D33), Fy(D33))
E34: (Fx(D34), Fy(D34))
E35: (Fx(D35), Fy(D35))
E36: (Fx(D36), Fy(D36))
E37: (Fx(D37), Fy(D37))
E38: (Fx(D38), Fy(D38))
E39: (Fx(D39), Fy(D39))
E40: (Fx(D40), Fy(D40))
E41: (Fx(D41), Fy(D41))
E42: (Fx(D42), Fy(D42))
E43: (Fx(D43), Fy(D43))
E44: (Fx(D44), Fy(D44))
E45: (Fx(D45), Fy(D45))
E46: (Fx(D46), Fy(D46))
E47: (Fx(D47), Fy(D47))
E48: (Fx(D48), Fy(D48))
E49: (Fx(D49), Fy(D49))
E50: (Fx(D50), Fy(D50))
E51: (Fx(D51), Fy(D51))
E52: (Fx(D52), Fy(D52))
E53: (Fx(D53), Fy(D53))
E54: (Fx(D54), Fy(D54))
E55: (Fx(D55), Fy(D55))
E56: (Fx(D56), Fy(D56))
E57: (Fx(D57), Fy(D57))
E58: (Fx(D58), Fy(D58))
E59: (Fx(D59), Fy(D59))
E60: (Fx(D60), Fy(D60))
E61: (Fx(D61), Fy(D61))
E62: (Fx(D62), Fy(D62))
E63: (Fx(D63), Fy(D63))
E64: (Fx(D64), Fy(D64))
E65: (Fx(D65), Fy(D65))
E66: (Fx(D66), Fy(D66))
E67: (Fx(D67), Fy(D67))
E68: (Fx(D68), Fy(D68))
E69: (Fx(D69), Fy(D69))
E70: (Fx(D70), Fy(D70))
E71: (Fx(D71), Fy(D71))
E72: (Fx(D72), Fy(D72))
E73: (Fx(D73), Fy(D73))
E74: (Fx(D74), Fy(D74))
E75: (Fx(D75), Fy(D75))
E76: (Fx(D76), Fy(D76))
E77: (Fx(D77), Fy(D77))
E78: (Fx(D78), Fy(D78))
E79: (Fx(D79), Fy(D79))
E80: (Fx(D80), Fy(D80))
F1: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A1 + 40]]
F2: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A2 + 40]]
F3: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A3 + 40]]
F4: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A4 + 40]]
F5: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A5 + 40]]
F6: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A6 + 40]]
F7: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A7 + 40]]
F8: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A8 + 40]]
F9: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A9 + 40]]
F10: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A10 + 40]]
F11: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A11 + 40]]
F12: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A12 + 40]]
F13: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A13 + 40]]
F14: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A14 + 40]]
F15: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A15 + 40]]
F16: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A16 + 40]]
F17: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A17 + 40]]
F18: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A18 + 40]]
F19: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A19 + 40]]
F20: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A20 + 40]]
F21: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A21 + 40]]
F22: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A22 + 40]]
F23: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A23 + 40]]
F24: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A24 + 40]]
F25: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A25 + 40]]
F26: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A26 + 40]]
F27: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A27 + 40]]
F28: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A28 + 40]]
F29: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A29 + 40]]
F30: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A30 + 40]]
F31: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A31 + 40]]
F32: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A32 + 40]]
F33: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A33 + 40]]
F34: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A34 + 40]]
F35: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A35 + 40]]
F36: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A36 + 40]]
F37: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A37 + 40]]
F38: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A38 + 40]]
F39: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A39 + 40]]
F40: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A40 + 40]]
F41: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A41 + 40]]
F42: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A42 + 40]]
F43: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A43 + 40]]
F44: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A44 + 40]]
F45: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A45 + 40]]
F46: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A46 + 40]]
F47: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A47 + 40]]
F49: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A49 + 40]]
F50: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A50 + 40]]
F51: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A51 + 40]]
F52: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A52 + 40]]
F53: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A53 + 40]]
F54: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A54 + 40]]
F55: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A55 + 40]]
F56: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A56 + 40]]
F57: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A57 + 40]]
F58: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A58 + 40]]
F59: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A59 + 40]]
F60: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A60 + 40]]
F61: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A61 + 40]]
F62: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A62 + 40]]
F63: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A63 + 40]]
F64: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A64 + 40]]
F65: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A65 + 40]]
F66: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A66 + 40]]
F67: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A67 + 40]]
F68: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A68 + 40]]
F69: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A69 + 40]]
F70: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A70 + 40]]
F72: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A72 + 40]]
F73: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A73 + 40]]
F74: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A74 + 40]]
F75: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A75 + 40]]
F76: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A76 + 40]]
F77: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A77 + 40]]
F78: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A78 + 40]]
B6 = Sum(Sequence[((cos((((A6 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A6 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B7 = Sum(Sequence[((cos((((A7 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A7 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B8 = Sum(Sequence[((cos((((A8 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A8 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B9 = Sum(Sequence[((cos((((A9 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A9 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B10 = Sum(Sequence[((cos((((A10 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A10 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B11 = Sum(Sequence[((cos((((A11 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A11 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B12 = Sum(Sequence[((cos((((A12 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A12 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
B13 = Sum(Sequence[((cos((((A13 * 2) * π) * (t - 1) / n)) * x(p(t))) + (sin((((A13 * 2) * π) * (t - 1) / n)) * y(p(t)))) / n, t, 1, n])
F71: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A71 + 40]]
F48: (Fx(m), Fy(m)) + Sum[Sequence[(abs(v(j)) * (cos(ang(j)), sin(ang(j)))), j, 1, A48 + 40]]