MathGroup Archive 2000

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

Search the Archive

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


  • Prev by Date: Re: Making Mathematica "beep"
  • Next by Date: Re: plot discrete spectrum
  • Previous by thread: Re: Making Mathematica "beep"
  • Next by thread: Re: plot discrete spectrum