NyquistPlot[(10 s+1)/(s^2+2 s+1),PlotStyle->Directive[Darker@Red,Thick],NyquistGridLines->{{#,Directive[Dashed,Darker@Green]}&/@Range[0.5,0.9,0.05],{#,Directive[Dotted,Darker@Blue]}&/@(Range[-20,20,4] Degree)},Frame->True,GridLinesStyle->{Yellow,Orange}]