« View all new features in
Mathematica
9
◄
previous
|
next
►
New in
Mathematica
9
›
Built-in Signal Processing
Create an Analog Elliptic Filter
Create a elliptic lowpass filter and plot the magnitude response of the filter, showing the ideal filter characteristics.
In[1]:=
X
\[Omega]p = 1.; \[Omega]s = 1.2; ap = 1.; as = 20.;
In[2]:=
X
tf = EllipticFilterModel[{"Lowpass", {\[Omega]p, \[Omega]s}, {ap, as}}];
In[3]:=
X
gp = 10^(-ap/20); gs = 10^(-as/20);
In[4]:=
X
Plot[Abs[tf[I*\[Omega]]], {\[Omega], 0, 3}, PlotRange -> All, Epilog -> {Pink, Dashed, Line[{{0, gp}, {\[Omega]p, gp}, {\[Omega]p, gs}}], Line[{{\[Omega]s, gp}, {\[Omega]s, gs}, {3., gs}}]}]
Out[4]=