Sonograham

Sometimes the syntax for writing in the Wolfram language is as easy to follow as reverse polish notation (read that however you like). Sometimes its With[{tf = ButterworthFilterModel[3, s]}, Manipulate[ First@BodePlot[{tf, TransferFunctionTransform[type, tf]}, {0.01, 100}, GridLines -> Automatic, PlotRange -> {{Full, {-60, 5}}, Automatic}, PlotLayout -> "List"], {{type, # &}, {# & -> "Lowpass", 1/# & -> "Highpass", 1/10 (#^2 + 1)/# & -> "Bandpass", (10 #)/(#^2 + 1) & -> "Bandstop"}}]] https://reference.wolfram.com/language/tutorial/AnalogFilterDesign.html#524371848 But I like using it all the same