# How to adjust the parameters on a Nyquist Plot?

In order to see some details on a Nyquist Diagram I have used the function NyquistPlot that comes with Mathematica v8 and v9.

NyquistPlot[
TransferFunctionModel[(30000*(s + 3)^2)/(s*(s + 0.5)^2*(s + 20)^2), s],
Automatic,
PlotPoints -> 1000, ImageSize -> Medium]


The first thing one can see is that there is a discontinuity (not in the actual diagram). Note that the dashed lines are departing from the wrong position of the branches.

I have tried to adjust the range of frequencies so as to see "more" of the diagram but to no avail.

One info: there are three crossings on the negative real axis (x-axis): -3.7, -56.5, -1074. I wonder whether there is a way to see them all.

Any ideas?

-

The default plot range needs a little help:

p = NyquistPlot[
TransferFunctionModel[(30000*(s + 3)^2)/(s*(s + 0.5)^2*(s + 20)^2), s],
PlotRange -> {{-1500, 200}, {-100, 100}}]


The three crossings can be seen better as follows:

Show[p, PlotRange -> {{-1200, 10}, {-100, 100}},

Show[p, PlotRange -> {{-60, 10}, {-10, 10}},