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: Points disappeared in ListPlot

  • To: mathgroup at christensen.cybernetics.net
  • Subject: [mg1285] Re: Points disappeared in ListPlot
  • From: wagner at bullwinkle.cs.Colorado.EDU (Dave Wagner)
  • Date: Wed, 31 May 1995 05:15:47 -0400
  • Organization: University of Colorado, Boulder

In article <3q3mc3$mc5 at news0.cybernetics.net>,
Kyle Oliver <koliver at bu.edu> wrote:
>I just installed MMa on 12 Pentium 75 in one of my labs, and when I run 
>ListPlot, the points do not show up?  We have a site license for all of our
>machines, so it should not be a license problem.  I can solve the problem by
>using PlotStyle->PointSize[0.01], but I would have to type this in every time.
>Does anyone know of a global solution, or how I can change the default
>PointSize? Thanks for your help.
>Kyle F. Oliver
>koliver at acs.bu.edu

A while back I wrote some definitions for Plot that give it a default
Thickness. A similar technique could be used to give ListPlot a default
PointSize. 

Here are the definitions.  They use a global variable called
$DefaultThickness.  These definitions may seem complex but they handle
many possible cases, including specification of Thickness primitives in
Options[Plot].  Note that a manifest Thickness directive will not be
overriden by these rules under any (I hope!) circumstances.  See the
examples that follow.

    Unprotect[Plot];

    Plot[heads___, PlotStyle->Automatic, tails___] :=
	Plot[heads, PlotStyle->Thickness[$DefaultThickness], tails]

    Plot[heads___, PlotStyle->style_, tails___] /;
	!ListQ[style] && FreeQ[style,Thickness] :=
	Plot[heads, PlotStyle->{{style,Thickness[$DefaultThickness]}}, tails]

    Plot[heads___, PlotStyle->{h___, style_, t___}, tails___] /;
	FreeQ[{style},Thickness] :=
	Plot[heads,
	     PlotStyle-> {h, Flatten[{style, Thickness[$DefaultThickness]}], t},
	     tails]

    Plot[args__] /; FreeQ[{args}, PlotStyle] :=
	Plot[args, Evaluate[PlotStyle->(PlotStyle/.Options[Plot])]]

    Protect[Plot];

Here are some examples of use:

    $DefaultThickness=.005;
    Plot[{Sin[x],Sin[2x],Sin[3x],Sin[4x]}, {x,-2,2},
	PlotStyle->{GrayLevel[.5],
		    {RGBColor[1,0,0],Dashing[{.02,.04}]},
		    {RGBColor[0,1,0],Thickness[.02]},
		    Thickness[.01]},
	Frame->True]

    SetOptions[Plot, PlotStyle->Automatic];
    $DefaultThickness=.1;
    Plot[Sin[x], {x,-1,1}]

		Dave Wagner
		Principia Consulting
		(303) 786-8371
		dbwagner at princon.com
		http://www.princon.com/princon


  • Prev by Date: Re: INTERACTIVE USE OF MATHEMATICA
  • Next by Date: Evaluation of Special function: A bug?
  • Previous by thread: Re: Points disappeared in ListPlot
  • Next by thread: Help on selecting Diff. Equations book.