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>