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.