Setup

Set 1/n

SetRandom

n = 10 (slider from 1 to 15, step 1)
Rs: R1:R15
funcSin = Sequence((Element[Rs, i] * sin((i * x))), i, 1, 15)
theta = 6.8 (slider from 0 to 12.566370614359172, step 0.01)
R1 = 0.9355383920747917 (slider from 0 to 1, step 0.01)
R2 = 0.17592249573182805 (slider from 0 to 1, step 0.01)
R3 = 0.9899135364411411 (slider from 0 to 1, step 0.01)
R4 = 0.016604690645782627 (slider from 0 to 1, step 0.01)
R5 = 0.4370314329705619 (slider from 0 to 1, step 0.01)
R6 = 0.5473877639300752 (slider from 0 to 1, step 0.01)
R7 = 0.6716069972255411 (slider from 0 to 1, step 0.01)
R8 = 0.5826547442906315 (slider from 0 to 1, step 0.01)
R9 = 0.21058164657362366 (slider from 0 to 1, step 0.01)
R10 = 0.9412764877547487 (slider from 0 to 1, step 0.01)
R11 = 0.4103287804526353 (slider from 0 to 1, step 0.01)
R12 = 0.7894322724746482 (slider from 0 to 1, step 0.01)
R13 = 0.057925463435191116 (slider from 0 to 1, step 0.01)
R14 = 0.7137326329001537 (slider from 0 to 1, step 0.01)
TF = Sum(funcSin, n)
R15 = 0.3119335565926237 (slider from 0 to 1, step 0.01)
f = Translate(If[0 ≤ x ≤ 12.57, TF(x)], ((2 * π), 0))
P1: ((R1 * cos(theta)), (R1 * sin(theta)))
P2: ((R2 * cos((2 * theta))) + x(P1), (R2 * sin((2 * theta))) + y(P1))
P3: ((R3 * cos((3 * theta))) + x(P2), (R3 * sin((3 * theta))) + y(P2))
P4: ((R4 * cos((4 * theta))) + x(P3), (R4 * sin((4 * theta))) + y(P3))
P5: ((R5 * cos((5 * theta))) + x(P4), (R5 * sin((5 * theta))) + y(P4))
P6: ((R6 * cos((6 * theta))) + x(P5), (R6 * sin((6 * theta))) + y(P5))
P7: ((R7 * cos((7 * theta))) + x(P6), (R7 * sin((7 * theta))) + y(P6))
P8: ((R8 * cos((8 * theta))) + x(P7), (R8 * sin((8 * theta))) + y(P7))
P9: ((R9 * cos((9 * theta))) + x(P8), (R9 * sin((9 * theta))) + y(P8))
P10: ((R10 * cos((10 * theta))) + x(P9), (R10 * sin((10 * theta))) + y(P9))
P11: ((R11 * cos((11 * theta))) + x(P10), (R11 * sin((11 * theta))) + y(P10))
P12: ((R12 * cos((12 * theta))) + x(P11), (R12 * sin((12 * theta))) + y(P11))
P13: ((R13 * cos((13 * theta))) + x(P12), (R13 * sin((13 * theta))) + y(P12))
P14: ((R14 * cos((14 * theta))) + x(P13), (R14 * sin((14 * theta))) + y(P13))
P15: ((R15 * cos((15 * theta))) + x(P14), (R15 * sin((15 * theta))) + y(P14))
C1 = Circle((0, 0), R1)
C2 = Circle(P1, R2)
C3 = Circle(P2, R3)
C4 = Circle(P3, R4)
C5 = Circle(P4, R5)
C6 = Circle(P5, R6)
C7 = Circle(P6, R7)
C8 = Circle(P7, R8)
C9 = Circle(P8, R9)
C10 = Circle(P9, R10)
C11 = Circle(P10, R11)
C12 = Circle(P11, R12)
C13 = Circle(P12, R13)
C14 = Circle(P13, R14)
C15 = Circle(P14, R15)
Ps: P1:P15
v = Vector(Element[Ps, n], ((2 * π) + theta, f((2 * π) + theta)))
LineT = Join({{Segment[(0, 0), P1]}, Sequence[Segment[Element[Ps, i], Element[Ps, i + 1]], i, 1, n - 1]})
speed: 0.3