π の桁数字からメロディーを生成する
の基数を24とした場合の最初の100桁の数字を選ぶ．
In[1]:=
digits = First@RealDigits[\[Pi], 24, 100]Out[1]=
それらを使って，正弦波発振器のピッチを制御する．
In[2]:=
midiToFreq[m_] := 2^((m - 69)/12)*440.
AudioGenerator[{"Sin", TimeSeries[midiToFreq[50 + digits], {0, 10}]}]Out[2]=
