Eine Funktion zur Visualisierung von Periodizität aufstellen  

Der folgende Code berechnet die Periodizität einer reellen Funktion. Der Code verwendet dann diese Informationen, um in einem Manipulate-Bedienelement die Visualisierung und deren Translation anzuzeigen. Es ist ersichtlich, dass die Translation um eine ganze Periode nicht zu unterscheiden von gar keiner Translation ist.

In[1]:=

X VisualizePeriodicity[f_, x_] := Block[{a}, With[{T = FunctionPeriod[f, x], shiftedF = f /. x -> x - a}, Manipulate[ Plot[{f, shiftedF}, {x, 0, 3 T}, PerformanceGoal -> "Quality", ImageSize -> Medium], {a, 0, T, Appearance -> "Labeled"}]]]

Diese Funktion besitzt die Periode und erstreckt sich über den Bereich bis .

In[2]:=

X VisualizePeriodicity[Sin[x] + Cos[3/2 x], x]

Animation abspielen Abspielung unterbrechen

Die Funktion besitzt die Periode und erstreckt sich über den Bereich 0 bis .

In[3]:=

X VisualizePeriodicity[SquareWave[x] + TriangleWave[x/3], x]

Animation abspielen Abspielung unterbrechen