Re: Questions on Plot

*To*: mathgroup at smc.vnet.net*Subject*: [mg36771] Re: [mg36752] Questions on Plot*From*: Omega Consulting <omega_consulting at yahoo.com>*Date*: Tue, 24 Sep 2002 01:34:26 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

At 03:32 AM 9/22/2002, Steve Gray wrote: >I would appreciate help with these problems: > >1. I'm plotting several thousand points, which I can do >either with something like this (this is a test): > >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}]; >dw = Graphics[{PointSize[0.01], RGBColor[ 1, 0, 0], w}]; >dx = Graphics[{PointSize[0.01], RGBColor[.8, .8, .8], x}]; >dy = Graphics[{PointSize[0.01], RGBColor[ 0, .5, .9], y}]; >dz = Graphics[{PointSize[0.01], RGBColor[.8, .8, 0], z}]; >Show[dw, dx, dy, dz, AspectRatio -> Automatic, > PlotRange -> {{0, 1}, {0, 1}}, > Axes -> Automatic, > Frame -> True, > Background -> GrayLevel[.026], > GridLines -> Automatic]; > >This gives me dots in 4 colors for distinguishing different >kinds of points in my real application. This works fine but >needs the Point structure. Or, I can do (this is for one >kind of point), > >t = Table[{Random[], Random[]}, {i, 1, 1024}]; >ListPlot[t, AspectRatio -> Automatic, > Axes -> Automatic, > Frame -> True, > Background -> GrayLevel[.026] > ]; > >which seems simpler and may fit into the rest of the program >more easily. > >1. How do I get the RGBColor Rule or the equivalent into >the latter? The RGBColor[] call is not a rule. > >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? > >3. In either case, I need to make the whole plot area about >twice as big. That is, it now occupies about a 4" square. To >see details better in my real plot, and because with 16k points >the small plot just looks almost like a solid blur, I want to >make it more like 8" square, or as big as will fit the screen >(without changing the plot range or anything else). There >must be a scale factor somewhere. > >Thank you for any information. You can plot more than one list with MultipleListPlot. <<Graphics` If you don't like the default symbols used by MultipleListPlot, then you can create your own. ColorPoint[color_] := MakeSymbol[{color,Point[{0,0}]}] Create the data. w=Table[{Random[],Random[]},{i,1,1024}]; x=Table[{Random[],Random[]},{i,1,1024}]; y=Table[{Random[],Random[]},{i,1,1024}]; z= Table[{Random[],Random[]},{i,1,1024}]; And plot MultipleListPlot[w,x,y,z, AspectRatio->Automatic,Axes->Automatic,Frame->True, SymbolShape->{ColorPoint[RGBColor[1,0,0]], ColorPoint[RGBColor[.8, .8, .8]],ColorPoint[RGBColor[ 0, .5, .9]], ColorPoint[RGBColor[.8, .8, 0]]}, SymbolStyle->PointSize[0.01],Background->GrayLevel[.026] ] -------------------------------------------------------------- Omega Consulting "The final answer to your Mathematica needs" Spend less time searching and more time finding. http://www.wz.com/internet/Mathematica.html