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: [mg88856] Re: An Elegant way of plotting the Pole-Zero diagram
  • From: Szabolcs Horvát <szhorvat at gmail.com>
  • Date: Mon, 19 May 2008 05:18:08 -0400 (EDT)
  • Organization: University of Bergen
  • References: <g0p49o$nc2$1@smc.vnet.net>

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[].

Here are two functions for those symbols:

zero[pt_, size_: 10] := Circle[pt, Offset[size/2 {1, 1}]]

pole[pt_, size_: 10] :=
  Line[Map[Offset[size/2 #,
      pt] &, {{{1, 1}, {-1, -1}}, {{-1, 1}, {1, -1}}}, {2}]]

The size is specified in printer's points, i.e. it stays constant while 
resizing the plot.


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