Re: color legend

*To*: mathgroup at smc.vnet.net*Subject*: [mg110497] Re: color legend*From*: "Kevin J. McCann" <kjm at KevinMcCann.com>*Date*: Mon, 21 Jun 2010 02:11:30 -0400 (EDT)*References*: <hvkh2a$qeb$1@smc.vnet.net>

Bob, The problem I have with this approach is that you have to give, in text, the min and max labels for the plot. This is clearly a place where errors can occur. It would be really great if all you had to do was to specify the min and max of the z-axis (color scale) and the legend automatically incorporated this. Kevin Bob Hanlon wrote: > 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 > >