Re: False image plot

*To*: mathgroup at smc.vnet.net*Subject*: [mg58334] Re: [mg58328] False image plot*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Tue, 28 Jun 2005 21:56:35 -0400 (EDT)*Reply-to*: hanlonr at cox.net*Sender*: owner-wri-mathgroup at wolfram.com

n=100; x= Table[Random[],{n}]; y= Table[Random[],{n}]; c= Table[Random[],{n}]; data=Thread[{c,x,y}]; Show[Graphics[ {AbsolutePointSize[4], Which[#[[1]]<1/3, Blue, #[[1]]<2/3, Yellow, True,Red ], Point[Rest[#]]}&/@data, Frame->True, PlotRange->{{-0.02,1.02},{-0.02,1.02}}]]; Bob Hanlon > > From: tornado78 <tornado78 at hotmail.com> To: mathgroup at smc.vnet.net > Date: 2005/06/28 Tue AM 05:13:30 EDT > Subject: [mg58334] [mg58328] False image plot > > Ok here is another one i need help on > > How do you get mathematica to take three lists of numbers, plot one as x, one as y and the third not as a 3rd dimension but as a color value of some sort for example blue for low values, red and yellow for high values of the third set of numbers > > thanks > >