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 ===========================================