Filtrage audio
La plupart des filtres intégrés prennent immédiatement en charge le filtrage des signaux audio.
In[1]:=

a = ExampleData[{"Audio", "Apollo11SmallStep"}, "Audio"]
Filtre passe-bas.
In[2]:=

lp = LowpassFilter[a, Quantity[800, "Hz"], 101]
Filtre passe-haut.
In[3]:=

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

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

Supprimez le bruit à l'aide d'un filtre de Wiener.
In[5]:=

WienerFilter[a, 25]