Re: plot discrete spectrum

*To*: mathgroup at smc.vnet.net*Subject*: [mg23301] Re: [mg23266] plot discrete spectrum*From*: BobHanlon at aol.com*Date*: Sun, 30 Apr 2000 21:13:52 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

data = Table[{x = 4Pi(Random[] - .5), Sin[x]/x}, {20}]; plt = (ListPlot[data, PlotStyle -> RGBColor[0, 0, 1], DisplayFunction -> Identity, PlotRange -> All] /. Point[{x_, y_}] :> Line[{{x, y}, {x, 0}}]); Show[plt, DisplayFunction -> $DisplayFunction, Frame -> True]; In a message dated 4/29/2000 10:29:33 PM, murray at math.umass.edu writes: >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. Bob BobHanlon at aol.com