Transfer Function of Analog Filters 

In[1]:=

X Manipulate[ Chop@TransferFunctionExpand[filter[n, s]], {{n, 2, "filter order"}, 2, 8, 1, Appearance -> "Labeled"}, {{filter, ButterworthFilterModel}, {ButterworthFilterModel -> \!\(\* StyleBox["\"\<Butterworth\>\"", StripOnInput->False, FontFamily->"Times", FontSize->Larger, FontSlant->Italic, "NodeID" -> 31]\), Chebyshev1FilterModel -> \!\(\* StyleBox["\"\<Chebyshev 1\>\"", StripOnInput->False, FontFamily->"Times", FontSize->Larger, FontSlant->Italic, "NodeID" -> 32]\), Chebyshev2FilterModel -> \!\(\* StyleBox["\"\<Chebyshev 2\>\"", StripOnInput->False, FontFamily->"Times", FontSize->Larger, FontSlant->Italic, "NodeID" -> 33]\), EllipticFilterModel -> \!\(\* StyleBox["\"\<elliptic\>\"", StripOnInput->False, FontFamily->"Times", FontSize->Larger, FontSlant->Italic, "NodeID" -> 34]\)}}]

Out[1]=

Play Animation » Stop Animation »