Создание мелодии на основе цифр в числе π
Выберем первые 100 цифр в числе π с базой 24.
In[1]:=
![Click for copyable input](assets.ru/create-a-melody-from-the-digits-of-pi/In_89.png)
digits = First@RealDigits[\[Pi], 24, 100]
Out[1]=
![](assets.ru/create-a-melody-from-the-digits-of-pi/O_39.png)
Будем использовать полученные числа, чтобы контролировать высоту синусоидальной генератора.
In[2]:=
![Click for copyable input](assets.ru/create-a-melody-from-the-digits-of-pi/In_90.png)
midiToFreq[m_] := 2^((m - 69)/12)*440.
AudioGenerator[{"Sin", TimeSeries[midiToFreq[50 + digits], {0, 10}]}]