Построение аудио компрессора
Построим аудио компрессор.
In[1]:=
a = Import["ExampleData/rule30.wav"]Out[1]=
In[2]:=
AudioPlot[a, ImageSize -> Medium]Out[2]=
Рассчитаем среднеквадратичную амплитуду для сигнала с порогом в 0,02.
In[3]:=
amplitude = AudioBlockMap[Max[.02, Sqrt@Mean[#^2]] &, a, {.01, .005}]Out[3]=
Преобразуем динамический диапазон сигнала в более сжатый.
In[4]:=
AudioNormalize[a/AudioGenerator[amplitude]]Out[4]=
In[5]:=
AudioNormalize[a/AudioGenerator[amplitude]];
AudioPlot[%, ImageSize -> Medium]Out[5]=
