Wolfram Language

Computational Audio

Audio Filtering

Most built-in filters immediately support filtering of the audio signals.

In[1]:=
Click for copyable input
a = ExampleData[{"Audio", "Apollo11SmallStep"}, "Audio"]
Out[1]=

Lowpass filter.

In[2]:=
Click for copyable input
lp = LowpassFilter[a, Quantity[800, "Hz"], 101]
Out[2]=

Highpass filter.

In[3]:=
Click for copyable input
hp = HighpassFilter[a, Quantity[1600, "Hz"], 101]
Out[3]=
In[4]:=
Click for copyable input
Periodogram[{a, lp, hp}, 2000, PlotRange -> {{0, 3000}, Automatic}, Frame -> True, ImageSize -> Medium, PlotLegends -> {"Original", "Lowpass", "Highpass"}]
Out[4]=

Remove noise using a Wiener filter.

In[5]:=
Click for copyable input
WienerFilter[a, 25]
Out[5]=

Related Examples

de es fr ja ko pt-br ru zh