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>

```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}},
>    FrameTicks -> {{Automatic, None}, {None, None}},
>    ImageSize -> 35]}, Spacer[5]]
>
>

--

DrMajorBob at bigfoot.com

```

• Prev by Date: Re: Delayed Derivative Operator
• Next by Date: Re: Simplifying Log[a] + Log[expr_] - Log[2 expr_]: Brute force necessary?
• Previous by thread: Re: Equivalent functionality to colorbar in Mathematica?
• Next by thread: Re: Equivalent functionality to colorbar in Mathematica?