Re: Re: Equivalent functionality to colorbar in Mathematica?
- To: mathgroup at smc.vnet.net
- Subject: [mg81786] Re: [mg81773] Re: Equivalent functionality to colorbar in Mathematica?
- From: DrMajorBob <drmajorbob at bigfoot.com>
- Date: Wed, 3 Oct 2007 06:09:26 -0400 (EDT)
- References: <200709300744.DAA20164@smc.vnet.net> <fdt3a6$roe$1@smc.vnet.net> <11722942.1191397404022.JavaMail.root@m35>
- Reply-to: drmajorbob at bigfoot.com
Isn't that gorgeous? David has even better examples in his DrawGraphics6 package. Bobby On Wed, 03 Oct 2007 01:32:28 -0500, David Park <djmpark 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]] > > -- DrMajorBob at bigfoot.com