« View all new features in
Mathematica
9
◄
previous
|
next
►
New in
Mathematica
9
›
Built-in Signal Processing
Discrete-Time Fourier Transform of a Moving-Average Filter
Frequency response of a 2D moving-average filter.
In[1]:=
X
H[u_, v_] = ListFourierSequenceTransform[1/25 \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1", "1", "1", "1", "1"}, {"1", "1", "1", "1", "1"}, {"1", "1", "1", "1", "1"}, {"1", "1", "1", "1", "1"}, {"1", "1", "1", "1", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}, "Items" -> {}, "ItemsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}, "Items" -> {}, "ItemsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\), {u, v}]
Out[1]=
In[2]:=
X
Plot3D[Abs[H[u, v]], {u, -\[Pi], \[Pi]}, {v, -\[Pi], \[Pi]}, PlotRange -> All, Mesh -> False, ImageSize -> Medium]
Out[2]=
