3
$\begingroup$

I made this plot with Mathematica but it's hard to see the region around the cirtial point -1 + 0j. Is there any way to zoom the region?

func = (10 (s + 1)^2)/s^3;
NyquistPlot[func, 
 Epilog -> {Red, AbsolutePointSize[5], Point[{-1, 0}]}]

enter image description here

$\endgroup$

1 Answer 1

5
$\begingroup$

You could always implement your own poor's man zoom.

enter image description here

Code

func = (10 (s + 1)^2)/s^3;
Manipulate[
 NyquistPlot[func,
  Epilog -> {Red, AbsolutePointSize[5], Point[{-1, 0}]},
  PlotRange -> {{-xrange, xrange}, {-yrange, yrange}}
  ],
 {{xrange, 44, "x range?"}, 10, 100, 1, Appearance -> "Labeled"},
 {{yrange, 10, "y range?"}, 10, 100, 1, Appearance -> "Labeled"},
 TrackedSymbols :> {xrange, yrange}
 ]

Feel free to modify and change range as needed.

$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.