Re: color legend
- To: mathgroup at smc.vnet.net
- Subject: [mg110481] Re: color legend
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Sun, 20 Jun 2010 03:46:21 -0400 (EDT)
Needs["PlotLegends`"]
ShowLegend[
ArrayPlot[
Table[5./(1 + x^2 + y^2),
{x, -5, 5}, {y, -5, 5}],
Frame -> None,
ColorFunction ->
Function[{a},
RGBColor[1 - a, 1 - a, 1 - a]]],
{Function[{a},
RGBColor[a, a, a]],
11, " 5", " 0",
LegendPosition -> {1.1, -0.4}}]
Bob Hanlon
---- eric g <eric.phys at gmail.com> wrote:
=============
Hello Group,
I want to add a color grayscale
(myColorFunction[x_]:=RGBColor[1-x,1-x,1-x]) legend this arrayplot, from
min (white) to max (dark) values.
ArrayPlot[Table[5./(1 + x^2 + y^2), {x, -5, 5}, {y, -5, 5}], Frame -> None]
best regards,
eric