Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2007

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • 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?