WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

アナログフィルタの伝達関数

Wolfram Language code: Manipulate[Chop@TransferFunctionExpand[filter[n, s]], {{n, 2, "フィルタ次数"}, 2, 8, 1, Appearance -> "Labeled"}, {{filter, ButterworthFilterModel}, {ButterworthFilterModel -> *"Butterworth"*, Chebyshev1FilterModel -> *"Chebyshev 1"*, Chebyshev2FilterModel -> *"Chebyshev 2"*, EllipticFilterModel -> *"elliptic"*}}, SaveDefinitions -> True]