SetOptions[LogLinearPlot, 
  BaseStyle -> {FontSize -> 20}
  ];

FRO2[foo_,range_,label_,ylabel_,legends_:False]:=Show @@( Flatten @ {
LogLinearPlot[
(*Abs*)foo[(1/((s^2)+2 ζ s+1))/.{s-> I ω}]/.ζ->(#+(10^(-12))),
{ω,0.01,25},
PlotRange->range(*{0,+3}*),

PlotStyle->{Hue@((Sqrt[#/2.5])),Thick},

GridLines->Automatic,

Frame->True,
FrameLabel->{"(OverTilde[ω])",ylabel},
PlotLabel->label,
PlotLegends->If[legends,
Placed[
 LineLegend[{StringForm["ζ = ``",#]},LegendMarkerSize->30,LabelStyle->{GrayLevel[.4],FontFamily->"Arial",FontSize->16}],
Before
],
{}
],

ImageSize->{450,450},
AspectRatio->1
]&/@{0,1/10,1/5,1/2,(Sqrt[2])/2,1,2}
}
)

{{FRO2[20Log10[Abs[#]]&,{30,-50},"Amplitude da resposta forçada","ganho (dB)",True],
FRO2[Arg[#]180/π&,{0.1,-180.1},"Diferença de fase","ϕ [º]",True]}}//Transpose//TableForm

TF2[ζ_] = TransferFunctionModel[(1/((s^2)+2 ζ s + 1)), s];
BodePlot[TF2[0.1], PlotTheme->"Scientific", GridLines->Automatic, PlotStyle->100, PlotLabel->{"Magnitude Plot","Phase Plot"}]