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

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

Search the Archive

RE: Questions on Plot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg36769] RE: [mg36752] Questions on Plot
  • From: "Annetts, Dave (E&M, North Ryde)" <David.Annetts at csiro.au>
  • Date: Tue, 24 Sep 2002 01:34:23 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

Hi Steve,

> w = Table[Point[{Random[], Random[]}], {i, 1, 4096}];
> x = Table[Point[{Random[], Random[]}], {i, 1, 4096}];
> y = Table[Point[{Random[], Random[]}], {i, 1, 4096}];
> z = Table[Point[{Random[], Random[]}], {i, 1, 4096}];

> 2. In the latter case I also want to plot 4 types of points.
> How do I get ListPlot to put down 4 plots superimposed?
> Or can't I?

You can, but you have to do it via Graphics`MulitpleListPlot`.  

Load the requisite packages 
Needs["Graphics`Colors`"]
Needs["Graphics`MultipleListPlot`"]

Define 

cols = {Black, Red, Green, Blue}; 
pnts = {PlotSymbol[Triangle], PlotSymbol[Box], PlotSymbol[Diamond],
PlotSymbol[Star]};

Then

grf = MultipleListPlot[w, x, y, z,
	PlotStyle->cols,
	SymbolShape->pnts,
	SymbolsStyle->cols
	];

Documentation shows how to incorporate legends and to define other symbols.

Regards,

Dave.
==========================================
  Dr. David Annetts
  EM Modelling Analyst
  CSIRO DEM            Tel: +612 9490 5416
  North Ryde           Fax: +612 9490 5467
  Australia         David.Annetts at csiro.au
===========================================


  • Prev by Date: RE: pdf export
  • Next by Date: Re: how to plot with BOLD LINE with mathematica?
  • Previous by thread: RE: Questions on Plot
  • Next by thread: Re: Questions on Plot