Re: plot discrete spectrum
- To: mathgroup at smc.vnet.net
- Subject: [mg23325] Re: plot discrete spectrum
- From: Murray Eisenberg <murray at math.umass.edu>
- Date: Tue, 2 May 2000 00:43:08 -0400 (EDT)
- Organization: Mathematics & Statistics, Univ. of Mass./Amherst
- References: <8eg6vb$hdm@smc.vnet.net> <8ekvbd$q98@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Well, actually I want it with all the usual appurtenances of a ListPlot
(axes, etc.).
Jens-Peer Kuska wrote:
>
> 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
--
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