Wolfram Language

Audio computacional

Filtrado de audio

La mayoría de los filtros dan soporte inmediato al filtrado de señales de audio.

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

Filtro de paso bajo.

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

Filtro de paso alto.

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]=

Elimine el ruido usando un filtro de Wiener.

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

Ejemplos relacionados

de en fr ja ko pt-br ru zh