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
