Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

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



  • Prev by Date: Re: DiscretePlot
  • Next by Date: Re: defining a function of functions
  • Previous by thread: Re: color legend
  • Next by thread: Re: color legend