Язык Wolfram Language

Вычислительное аудио

Построение аудио компрессора

Построим аудио компрессор.

In[1]:=
Click for copyable input
a = Import["ExampleData/rule30.wav"]
Out[1]=
In[2]:=
Click for copyable input
AudioPlot[a, ImageSize -> Medium]
Out[2]=

Рассчитаем среднеквадратичную амплитуду для сигнала с порогом в 0,02.

In[3]:=
Click for copyable input
amplitude = AudioBlockMap[Max[.02, Sqrt@Mean[#^2]] &, a, {.01, .005}]
Out[3]=

Преобразуем динамический диапазон сигнала в более сжатый.

In[4]:=
Click for copyable input
AudioNormalize[a/AudioGenerator[amplitude]]
Out[4]=
In[5]:=
Click for copyable input
AudioNormalize[a/AudioGenerator[amplitude]]; AudioPlot[%, ImageSize -> Medium]
Out[5]=

Родственные примеры

de en es fr ja ko pt-br zh