Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: level curve selection

• To: mathgroup at smc.vnet.net
• Subject: [mg66511] Re: level curve selection
• From: Bill Rowe <readnewsciv at earthlink.net>
• Date: Wed, 17 May 2006 03:30:25 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

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

• Follow-Ups:
  • Re: Re: level curve selection
    • From: "Chris Chiasson" <chris@chiasson.name>