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

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