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
>