Re: plot discrete spectrum
- To: mathgroup at smc.vnet.net
- Subject: [mg23293] Re: [mg23266] plot discrete spectrum
- From: Bojan Bistrovic <bojanb at python.physics.odu.edu>
- Date: Sun, 30 Apr 2000 21:13:43 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
> 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
>
This one looks nice :-)
<<Graphics`Graphics`
ListPlot2[args_List, opts___]:=
Show@@Block[{$DisplayFunction=Identity},{ListPlot[args,opts],
BarChart[Map[{#[[2]],#[[1]]}&,args],BarGroupSpacing->1]}]
For energy spectrums you can make it even nicer by experimenting with
different BarChart options.
Bye, Bojan
--
---------------------------------------------------------------------
Bojan Bistrovic, bojanb at jlab.org
Old Dominion University, Norfolk VA & Jefferson Lab, Newport News, VA
---------------------------------------------------------------------