Фильтрация аудио

При работе с аудио, большинство встроенных фильтров доступны для моментальной фильтрации звукового сигнала.

In[1]:=

a = ExampleData[{"Audio", "Apollo11SmallStep"}, "Audio"]

Out[1]=

Низкочастотный фильтр.

In[2]:=

lp = LowpassFilter[a, Quantity[800, "Hz"], 101]

Out[2]=

Высокочастотный фильтр.

In[3]:=

hp = HighpassFilter[a, Quantity[1600, "Hz"], 101]

Out[3]=

In[4]:=

Periodogram[{a, lp, hp}, 2000, PlotRange -> {{0, 3000}, Automatic}, Frame -> True, ImageSize -> Medium, PlotLegends -> {"Original", "Lowpass", "Highpass"}]

Out[4]=

Устранение шума с помощью фильтра Винера.

In[5]:=

WienerFilter[a, 25]

Out[5]=