Re: plot discrete spectrum
- To: mathgroup at smc.vnet.net
- Subject: [mg23311] Re: plot discrete spectrum
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Mon, 1 May 2000 18:00:12 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <8eg6vb$hdm@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi, something like this ? AmplitudePlot[l : {{_, _} ..}, opts___] := Show[Graphics[{{AbsolutePointSize[4.5], Point /@ l}, Line[{{First[#], 0}, #} ] & /@ l }, opts]] AmplitudePlot[l : {_?NumericQ ..}, opts___] := AmplitudePlot[MapIndexed[{First[#2 - 1], #1} &, l], opts] Regards Jens Murray Eisenberg wrote: > > Is there an easy way to do a ListPlot[{{{x1, y1}, {x2, y2}, ..., {xn, > yn}} in which each a perpendicular is dropped from each dot to the > horizontal axis? > > Of course, when can combine the ListPlot with a Graphics object > consisting of line segments. I prefer a way that avoids using graphics > primitives directly. > > The sort of plot I want is what's usually done to display, for example, > the energy spectrum of a Fourier series. > > -- > Murray Eisenberg murray at math.umass.edu > Mathematics & Statistics Dept. phone 413 549-1020 (H) > Univ. of Massachusetts 413 545-2859 (W) > Amherst, MA 01003-4515