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