音声のフィルタリング
ほとんどの組込みフィルタは，そのままで音声信号のフィルタリングをサポートする．
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]=
ウィーナー(Wiener)フィルタを使ってノイズを除去する．
In[5]:=
WienerFilter[a, 25]Out[5]=
