Mathematica 9 is now available
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: [mg110472] Re: color legend
  • From: Bill Rowe <readnews at sbcglobal.net>
  • Date: Sun, 20 Jun 2010 03:44:43 -0400 (EDT)

On 6/19/10 at 7:49 AM, eric.phys at gmail.com (eric g) 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]

Perhaps something like

Grid[{{ArrayPlot[Table[5./(1 + x^2 + y^2), {x, -5, 5}, {y, -5, 5}],
     Frame -> None]}, {Graphics[Raster[{Reverse@Range[50]/50}],
     AspectRatio -> .1]}, {.1, 1}}, Alignment -> {{Left, Right}}]



  • Prev by Date: Re: how to scale text to a bounding rectangle?
  • Next by Date: Book?
  • Previous by thread: color legend
  • Next by thread: Re: color legend