Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

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

Search the Archive

Re: Re: level curve selection

  • To: mathgroup at smc.vnet.net
  • Subject: [mg66536] Re: [mg66511] Re: level curve selection
  • From: "Chris Chiasson" <chris at chiasson.name>
  • Date: Fri, 19 May 2006 03:39:43 -0400 (EDT)
  • References: <200605170730.DAA09211@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Bill Rowe,
In the cases presented in your latest email, the option
ContourShading->False removes the Polygons (and shading) normally
present in the output of (one or both) ContourPlot(s). This then makes
it much easier to combine the contours, at the expense of losing the
matching of contour shading to the contours shown. If you were
implying that this option should be used in your first email, I missed
it, which explains why we were on different wavelengths. No problemo.
Regards,

On 5/17/06, Bill Rowe <readnewsciv at earthlink.net> wrote:
> On 5/15/06 at 11:48 PM, chris at chiasson.name (Chris Chiasson) wrote:
>
> >Did you try that?
>
> Actually, no since what I proposed seemed the obvious way.
>
> >(Mathematica colors the background of the second
> >plot white, so showing them both overwrites the contours of the
> >first plot with white.
>
> Hmm.. this isn't the result I get For example try
>
> In[15]:=
> Show[Block[{$DisplayFunction = Identity},
>     {ContourPlot[Sin[x*y], {x, -5, 5}, {y, -5, 5},
>       ContourShading -> False, PlotPoints -> 50],
>      ContourPlot[Sin[x*y], {x, -5, 5}, {y, -5, 5},
>       ContourShading -> False, Contours -> {0},
>       ContourStyle -> Red, PlotPoints -> 50]}]];
>
> This results in a graphic with a multitude of black lines and considerably fewer red lines. The default number of contour lines makes this graphic rather difficult to interpret. So, I would use
>
> In[14]:=
> Show[Block[{$DisplayFunction = Identity},
>     {ContourPlot[Sin[x*y], {x, -5, 5}, {y, -5, 5},
>       ContourLines -> False, PlotPoints -> 50],
>      ContourPlot[Sin[x*y], {x, -5, 5}, {y, -5, 5},
>       ContourShading -> False, Contours -> {0},
>       ContourStyle -> Red, PlotPoints -> 50]}]];
>
> which superimposes red contours = 0 over the shaded graphic.
>
> But regardless of your preferences in graphics, I am seeing contours from both contour plots using
>
> In[16]:=
> $Version
>
> Out[16]=
> 5.2 for Mac OS X (June 20, 2005)
> --
> To reply via email subtract one hundred and four
>
>


-- 
http://chris.chiasson.name/


  • Prev by Date: Re: NonlinearFit problem
  • Next by Date: Re: Reconstructing data points from a InterpolatingFunction object
  • Previous by thread: Re: level curve selection
  • Next by thread: A good lag value for the Portmanteau test