Table of Normalized Butterworth lowpass polynomails

by Nasser M. Abbasi
July 11, 2010

Using my own DSP mathematica package, the following table is generated for the normalized low pass Butterworh polynomials. In this table, the filter order N is give, then H(s) is given. The function used also returns the stable poles, but these are not displayed.

<<dsp`

data=Table[dsp`getButterworthPolynomial[n,1,s,form->"quadratic"],{n,1,20}];

tbl=Table[{n,data[[n,2]]},{n,1,Length[data]}];
TableForm[N@tbl,TableHeadings->{None,{"N","H(s)"}},TableAlignments->Left]

Do[{Print["N=",n,"\t",N@tbl[[n,2]]]; Print[""]},{n,1,Length[data]}]