Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1995
*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 1995

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

Search the Archive

Re: Bug ListPlot?

  • Subject: [mg2767] Re: Bug ListPlot?
  • From: ianc (Ian Collier)
  • Date: Thu, 14 Dec 1995 01:47:33 -0500
  • Approved: usenet@wri.com
  • Distribution: local
  • Newsgroups: wri.mathgroup
  • Organization: Wolfram Research, Inc.

In article <4alt86$qah at dragonfly.wri.com>, wself at viking.emcmt.edu (Will
Self) wrote:

> A student of mine wanted to get plots of some data points.  He wanted
> to show the points large and connect them with lines. . Here is what he
> did:
> 
> data={{1,1},{2,3},{3,2}}
> 
> LogLogListPlot[data,GridLines -> Automatic,
> PlotStyle -> {PointSize[0.04]}]
> 
> LogLogListPlot[data,GridLines -> Automatic,
> PlotStyle -> {PointSize[0.04]}, PlotJoined -> True]
> 
> 
> In the first plot, he got large points but in the second plot the large points
> were absent.  He is doing this on a PC.  I tried this also on a Macintosh and
> got the same behavior.  Would someone try it on somethihng else and see
> what happens?  Would you call this a bug in ListPlot?
> 
> Will Self

Since there are no longer any Point primitives in the plot when 
you set PlotJoined -> True there is nothing for the PlotStyle
directive to act upon.


In[8]:=
    data={{1,1},{2,3},{3,2}}
Out[8]=
    {{1, 1}, {2, 3}, {3, 2}}

In[9]:=
    Needs[ "Graphics`Graphics`"]

In[10]:=
    pl1 = LogLogListPlot[data,GridLines -> Automatic,
        PlotStyle -> {PointSize[0.04]}]
Out[10]=
    -Graphics-

In[11]:=
    pl2 = LogLogListPlot[data,GridLines -> Automatic,
        PlotJoined -> True]
Out[11]=
    -Graphics-


We can test for the presence of Point primitives using FreeQ:

In[12]:=
    FreeQ[ pl1, Point[___]]
Out[12]=
    False

In[13]:=
    FreeQ[ pl2, Point[___]]
Out[13]=
    True


You can work around this by simply combining the plots

In[14]:=
    Show[ pl1, pl2] 
Out[14]=
    -Graphics-

I hope this helps.

--Ian

-----------------------------------------------------------
Ian Collier
Technical Sales Support
Wolfram Research, Inc.
-----------------------------------------------------------
tel:(217)-398-0700     fax:(217)-398-0747      ianc at wri.com
Wolfram Research Home Page:             http://www.wri.com/
-----------------------------------------------------------


  • Prev by Date: Help [Q] with Timing[] problem
  • Next by Date: How to get labels correctly plotted
  • Previous by thread: RE: Bug ListPlot?
  • Next by thread: Re: Bug ListPlot?