Re: Equivalent functionality to colorbar in Mathematica?

*To*: mathgroup at smc.vnet.net*Subject*: [mg81806] Re: Equivalent functionality to colorbar in Mathematica?*From*: michael.p.croucher at googlemail.com*Date*: Wed, 3 Oct 2007 06:34:52 -0400 (EDT)*References*: <200709300744.DAA20164@smc.vnet.net><fdt3a6$roe$1@smc.vnet.net>

Hi, David - thanks for that it looks great and isn't too complicated. Jens - I agree with you, the PlotLegends package is not very nice at all. Regards, Mike On 3 Oct, 07:46, "David Park" <djmp... at comcast.net> wrote: > Mike, > > data = Table[Exp[-(x^2 + y^2)], {x, -3, 3, 0.1}, {y, -3, 3, 0.1}]; > > Row[{ListPlot3D[data, > PlotRange -> All, > Boxed -> False, Axes -> False, > ColorFunction -> "TemperatureMap", > Mesh -> False, > ImageSize -> 350], > ContourPlot[y, {x, 0, .1}, {y, 0, 1}, > ColorFunction -> "TemperatureMap", > AspectRatio -> Automatic, > PlotRange -> {{0, 0.1}, {0, 1}}, > PlotRangePadding -> 0, > FrameTicks -> {{Automatic, None}, {None, None}}, > ImageSize -> 35]}, Spacer[5]] > > -- > David Park > djmp... at comcast.nethttp://home.comcast.net/~djmpark/ > > "Mike Croucher" <michael.p.crouc... at googlemail.com> wrote in message > > news:fdt3a6$roe$1 at smc.vnet.net... > > > Hi all > > > The following two commands produce a nice looking plot (in my opinion > > anyway) > > > data=Table[Exp[-(x^2+y^2)],{x,-3,3,0.1},{y,-3,3,0.1}]; > > ListPlot3D[data,PlotRange->All,Boxed->False,Axes->False,ColorFunction->"TemperatureMap",Mesh->False] > > > The colour of the plot is related to the value of the data via the > > TemperatureMap colour function but how do I include this information in a > > legend on the plot? Ideally I would like to create something similar to > > the > > legends shown in the following links > > >http://www.walkingrandomly.com/images/random/colorbar.gif > >http://www.walkingrandomly.com/images/random/colorbar2.gif > > > Does anyone know of a simple way of doing this in Mathematica? > > > Thanks in advance, > > Mike