Die Involute eines Kreises

Befestige eine Schnur an einem Punkt auf einem Kreis und wickle die Schnur auf, sodass sie stets gespannt bleibt. Das Ende der Schnur beschreibt dabei eine sogenannte Involute.

Parameterdarstellung:

x = r (cos t + t sin t)
	y = r (sin t - t cos t)

Lissajous[a_, w_, d_:  0] := 
      ParametricPlot[{a Sin[w t + d], Sin[t]}, {t, 0, 
          2  Pi Denominator[w]}, PlotStyle -> {Hue[0]}, 
        Ticks -> None, 
        AspectRatio -> 
          Automatic, 
DisplayFunction -> 
          Identity]

Animation: