周期性を可視化する関数を作成する 

以下のプログラムは実数からそれ自身への関数の周期性を計算する．次にその情報を使って，Manipulateを生成し，プロットとその変換，および完全な周期における変換が変換しない場合といかに区別が付かないかを示す．

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"}]]]

次の関数は周期 を持ち，結果としてから のプロットを作成する．

In[2]:=

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

動画を開始 動画を中止

次の関数は周期を持ち，からのプロットを生成する．

In[3]:=

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

動画を開始 動画を中止