Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1999
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1999

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

Search the Archive

Re: POLE-ZERO PLOTS

  • To: mathgroup at smc.vnet.net
  • Subject: [mg18699] Re: POLE-ZERO PLOTS
  • From: Eckhard Hennig <hennig at itwm.uni-kl.de>
  • Date: Sat, 17 Jul 1999 02:36:28 -0400
  • Organization: ITWM
  • References: <7mjsbi$fcg@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

>In control systems, it is a custom to represent the poles of a transfer
>function by "X", and the zeros by "o".  When, I use mathematica to get the
>pole-zero plot, I am not sure how to display poles with crosses "x"...the
>only function I'm aware of is PointSize...but this function uses a
different
>symbol.
>Is there anybody out there who can propose a straightforward way to do it.


Instead of the graphics primitive Point, use the function CrossMark defined
below to mark the poles. The Graphics command gives you a rough idea how to
display a P/Z plot. However, unless you are determined to write your own P/Z
or root locus plot routine, you may also want to check out the evaluation
version of our circuits and systems analysis toolbox Analog Insydes. Its
graphics module includes a root locus plot function (see URL in my sig).

-- Eckhard

CrossMark[sz_][{x_, y_}] :=
  { Line[{Scaled[{-sz,  sz}, {x, y}], Scaled[{ sz, -sz}, {x, y}]}],
    Line[{Scaled[{-sz, -sz}, {x, y}], Scaled[{ sz,  sz}, {x, y}]}] }

Graphics[{CrossMark[0.02][{1,1}], CrossMark[0.05][{1.5,0.5}]},
    PlotRange->{{0,2},{0,2}}, Axes->True, AspectRatio->1]
  // Show


-----------------------------------------------------------
Dipl.-Ing. Eckhard Hennig      mailto:hennig at itwm.uni-kl.de
Institut fuer Techno- und Wirtschaftsmathematik e.V. (ITWM)
Erwin-Schroedinger-Strasse,  67663 Kaiserslautern,  Germany
  Voice: +49-(0)631-205-3126    Fax: +49-(0)631-205-4139
    http://www.itwm.uni-kl.de/as/employees/hennig.html

     ITWM - Makers of Analog Insydes for Mathematica
        http://www.itwm.uni-kl.de/as/products/ai
-----------------------------------------------------------



  • Prev by Date: Re: [Q] Extracting patterns
  • Next by Date: Slow Version 4 Front End
  • Previous by thread: POLE-ZERO PLOTS
  • Next by thread: Re: POLE-ZERO PLOTS