Re: ListContourPlot Color
- To: mathgroup at smc.vnet.net
- Subject: [mg31518] Re: [mg31474] ListContourPlot Color
- From: BobHanlon at aol.com
- Date: Thu, 8 Nov 2001 04:56:23 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
ListContourPlot[
Table[x^2+y^2+Random[Real,{-0.2,0.2}],
{x,-2,2,0.1},{y,-2,2,0.1}],
ColorFunction -> Hue];
Needs["Graphics`Colors`"];
cf[x_] := Which[
x >.5, Red,
x > .3, Orange,
x > .1, Yellow,
x > 0.05, Green,
True, Blue
];
ListContourPlot[
Table[x^2+y^2+Random[Real,{-0.2,0.2}],
{x,-2,2,0.1},{y,-2,2,0.1}],
ColorFunction -> cf];
In a message dated 2001/11/7 6:43:12 AM, writes:
>
>In a message dated 2001/11/7 5:46:57 AM, Moranresearch at aol.com writes:
>
>>Is the a way to assign specific colors to the intervals between individual
>>
>>contours?
>>
>
>ListContourPlot[
> Table[x^2+y^2+Random[Real,{-0.2,0.2}],
> {x,-2,2,0.1},{y,-2,2,0.1}],
> ContourStyle->RGBColor[0,0,1]];
>
>ListContourPlot[
> Table[x^2+y^2+Random[Real,{-0.2,0.2}],
> {x,-2,2,0.1},{y,-2,2,0.1}],
> ContourStyle->{{RGBColor[0,0,1]},{RGBColor[1,0,0]}}];
>
>ListContourPlot[
> Table[x^2+y^2+Random[Real,{-0.2,0.2}],{x,-2,2,0.1},{y,-2,2,0.1}],
> ContourStyle->Join[
> Table[{RGBColor[0,0,1]},{2}],
> {RGBColor[1,0,0]}]];
>
>
>Bob Hanlon
>Chantilly, VA USA
>