Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2000
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2000

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

Search the Archive

Re: plot discrete spectrum

  • To: mathgroup at smc.vnet.net
  • Subject: [mg23320] Re: [mg23266] plot discrete spectrum
  • From: BobHanlon at aol.com
  • Date: Tue, 2 May 2000 00:43:04 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

It is not that the PointSize is ignored, but rather that there are no points 
since they were all replaced by lines. I misunderstood what you desired. For 
both points and lines, you could use

plt = (ListPlot[data, PlotStyle -> {PointSize[0.015],   RGBColor[1, 0, 0]}, 
          DisplayFunction -> Identity, PlotRange -> All] /. 
        Point[{x_, y_}] :> Sequence[Point[{x, y}], Line[{{x, y}, {x, 0}}]]);

Although this makes the points and the lines the same color. If you want the 
points and lines to be distinct colors then you could use

plt = ListPlot[data, PlotStyle -> {PointSize[0.015],   RGBColor[1, 0, 0]}, 
      DisplayFunction -> Identity, PlotRange -> All] ;

Show[{plt, 
      plt /.  {Point[{x_, y_}] :> Line[{{x, y}, {x, 0}}], 
          RGBColor[1, 0, 0] :> RGBColor[0, 0, 1]}}, 
    DisplayFunction -> $DisplayFunction, Frame -> True];

In a message dated 5/1/2000 11:15:27 AM, murray at math.umass.edu writes:

>That's an interesting way to do it.  But if, instead of the PlotStyle
>optioon you prescribed, I use instead, say,
>
>   PlotStyle -> {PointSize[0.015], Red}
>
>then the PointSize seems to be ignored.
>
>BobHanlon at aol.com wrote:
>> 
>> 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
>



Bob

BobHanlon at aol.com


  • Prev by Date: Re: FindRoot inside a loop
  • Next by Date: Re: plot discrete spectrum
  • Previous by thread: Re: plot discrete spectrum
  • Next by thread: Re: plot discrete spectrum