MathGroup Archive 2011

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

Search the Archive

Re: Defining the labels to display in ContourLabels

  • To: mathgroup at smc.vnet.net
  • Subject: [mg121460] Re: Defining the labels to display in ContourLabels
  • From: dreamcatcher <sasmathematica at gmail.com>
  • Date: Fri, 16 Sep 2011 05:46:32 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • References: <j4se59$snb$1@smc.vnet.net>

On Sep 15, 4:48=C2 pm, Luiz Melo <lm... at ufsj.edu.br> wrote:
> Hi there. Assuming:
>
> ContourPlot[Cos[x*y]/Exp[x^2 + y^2], {x, -2, 2}, {y, -2, 2}, ContourLabels
> -> All, Contours -> 9]
>
> I would like to keep the number of contours (9) and to label only those of
> values 0.9, 0.7, 0.5, 0.3, 0.1
>
> How?
>
> Thank you.
>
> --
> Prof. *Luiz Guilherme C.
> Melo*<https://sites.google.com/site/luizguilhermecmelo/home>
> Telecommunication engineering
> Universidade Federal Sao Joao del-Rei
> Campus Alto Paraopeba
> Rodovia MG 443, Km 7
> Ouro Branco - MG
> 36420-000 - Brazil

ContourPlot[Cos[x*y]/Exp[x^2 + y^2], {x, -2, 2}, {y, -2, 2},
 ContourLabels -> (Text[
     If[FreeQ[{0.2, 0.4, 0.6, 0.8}, #3], #3], {#1, #2}] &),
 Contours -> 9]

It's weird that below doesn't work in my computer=EF=BC=9A
ContourPlot[Cos[x*y]/Exp[x^2 + y^2], {x, -2, 2}, {y, -2, 2},
 ContourLabels -> (Text[
     If[MemberQ[{0.1, 0.3, 0.5, 0.7, 0.9}, #3], #3], {#1, #2}] &),
 Contours -> 9]

Even

ContourPlot[Cos[x*y]/Exp[x^2 + y^2], {x, -2, 2}, {y, -2, 2},
 ContourLabels -> (Text[
     If[MemberQ[{0.1, 0.3, 0.5, 0.7, 0.9}, #3], #3], {#1, #2}] &),
 Contours -> Table[0.1 i, {i, 1, 9}]]

doesn't work either. Are you ok with this?




  • Prev by Date: Re: How create new style sheet- Mathematica 8
  • Next by Date: Re: "Traveling salesman on a hemisphere" problem
  • Previous by thread: Defining the labels to display in ContourLabels
  • Next by thread: Re: Defining the labels to display in ContourLabels