n = 1 (slider from 1 to 10, step 1)
Rollkurve = CurveCartesian(((1 + 1 / n) * cos(t)) + (1 / n * cos(((n + 1) * t))), ((1 + 1 / n) * sin(t)) + (1 / n * sin(((n + 1) * t))), t, 0, (2 * π))
Ursprung: (0, 0)
Evolute = Rotate(Dilate[Rollkurve, n / (n + 2), Ursprung], (180 * ° / n), Ursprung)
t = 0.5026548245743669 (slider from 0 to (2 * π), step (0.01 * π))
Laufpunkt: (((1 + 1 / n) * cos(t)) + (1 / n * cos(((n + 1) * t))), ((1 + 1 / n) * sin(t)) + (1 / n * sin(((n + 1) * t))))
Laufpunkt1: (((1 + 1 / n) * cos(t - π / n)) + (1 / n * cos(((n + 1) * (t - π / n)))), ((1 + 1 / n) * sin(t - π / n)) + (1 / n * sin(((n + 1) * (t - π / n)))))
Schnur = Segment(Laufpunkt, Rotate[Dilate[Laufpunkt1, n / (n + 2), Ursprung], (180 * ° / n), Ursprung])