Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: An Elegant way of plotting the Pole-Zero diagram

  • To: mathgroup at smc.vnet.net
  • Subject: [mg88863] Re: An Elegant way of plotting the Pole-Zero diagram
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Mon, 19 May 2008 06:45:31 -0400 (EDT)
  • Organization: Uni Leipzig
  • References: <g0p49o$nc2$1@smc.vnet.net>
  • Reply-to: kuska at informatik.uni-leipzig.de

Hi,

and

poles = {0.45 + I*0.45, -0.45 - I*0.45};
zeros = {1, -1};

Graphics[{{Dashing[Tiny], GrayLevel[0.25],
    Circle[{0, 0}, 1]}, {RGBColor[1, 0, 0],
    Text["\[Times]", {Re[#], Im[#]}] & /@ poles,
    Text["\[EmptyCircle]", {Re[#], Im[#]}] & /@ zeros}}, Axes -> True,
  AspectRatio -> 1
  ]

does not help ?

Regards
   Jens

bk2005usa at gmail.com wrote:
> Hi to All:
> 
> Would anyone care to provide an elegant way of plotting the pole-zero
> diagram of a transfer function H[s], using the conventional symbols,
> namely, "x" for poles and "0" for zeros.  Mathematica does not have a
> built-in function to draw those symbols---like "Point[] and
> PointSize[].
> Your help will be appreciated
> Lemiel
> 


  • Prev by Date: Re: Possible Bug Report: CoefficientList
  • Next by Date: Re: Mathematica 6: No more memory available problem with ListDensityPlot
  • Previous by thread: Re: An Elegant way of plotting the Pole-Zero diagram
  • Next by thread: Filtering a list of list for certain elements that are neighbours