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 >