MathGroup Archive 2000

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

Search the Archive

Re: plot discrete spectrum

  • To: mathgroup at
  • Subject: [mg23301] Re: [mg23266] plot discrete spectrum
  • From: BobHanlon at
  • Date: Sun, 30 Apr 2000 21:13:52 -0400 (EDT)
  • Sender: owner-wri-mathgroup at

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 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.


BobHanlon at

  • Prev by Date: Re: Problem with Plot and Ticks-function
  • Next by Date: [Q] Equation solving?
  • Previous by thread: plot discrete spectrum
  • Next by thread: RE: plot discrete spectrum