BodePlot[{Tooltip[583900/(s (s+36) (s+100))],Tooltip[(36786 (s+0.98))/(s (s+36) (s+100) (s+0.062))]},ImageSize->550,Frame->True,PlotStyle->{Directive[Thick,ColorData[20,1]],Directive[Thick,ColorData[20,9]]},Frame->False,AspectRatio->1/2.25,GridLines->Automatic,GridLinesStyle->Directive[GrayLevel[0.7],Dashed]]