Wolfram 语言™

根据 Pi 的小数点位数创建一段旋律

选择基数为 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]=