MathGroup Archive 2005

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

Search the Archive

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


  • Prev by Date: Re: A ToExpression question
  • Next by Date: Re: exact integer from Log[ ]
  • Previous by thread: Re: False image plot
  • Next by thread: Re: False image plot