RE: Re: Re: level curve selection

*To*: mathgroup at smc.vnet.net*Subject*: [mg66519] RE: [mg66475] Re: [mg66460] Re: level curve selection*From*: "David Park" <djmp at earthlink.net>*Date*: Wed, 17 May 2006 03:31:02 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

Chris, Yes, the problem is that with contour shading the second plot will overlay and hide the first plot. However, if you want to simply add contour lines in the second plot, without additional shading you could do it as follows with DrawGraphics. Needs["DrawGraphics`DrawingMaster`"] Module[{contours1, contours2}, contours1 = ContourDraw[Cos[2*x + y]*Cos[y - x], {x, -Pi/2, Pi/2}, {y, -Pi/2, Pi/2}, PlotPoints -> 50, Contours -> 7, ContourShading -> True]; contours2 = ContourDraw[Cos[2*x + y]*Cos[y - x], {x, -Pi/2, Pi/2}, {y, -Pi/2, Pi/2}, PlotPoints -> 50, Contours -> {0.9, 0.95, 0.99}, ContourShading -> False, ContourStyle -> Red]; Draw2D[{contours1, contours2}, AspectRatio -> Automatic, ImageSize -> 450]]; But in general, if you really want to control the contours, the best thing is to list them specifically. You can always use Join with Range and specific lists. If you use Automatic along with additional contours, and you don't really know what Automatic is going to give you, then very often you would not obtain a very good set of contours anyway. David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ From: Chris Chiasson [mailto:chris at chiasson.name] To: mathgroup at smc.vnet.net Heheh, Did you try that? (Mathematica colors the background of the second plot white, so showing them both overwrites the contours of the first plot with white. It is still an interesting approach. I am sure the relevant graphics directives could be reaped out of the second plot. The main difficulty with this approach would be that the contour shading might be off (ie, some inner rings might be lighter than some outer rings). I wonder if that could be circumvented by extracting the PlotRange from the AbsoluteOptions of the first graph and setting that as an option for the second. I will look at this approach some more. Thank you Mr. Rowe. On 5/14/06, Bill Rowe <readnewsciv at earthlink.net> wrote: > On 5/13/06 at 2:42 AM, chris at chiasson.name (Chris Chiasson) wrote: > > >Does anyone know of good algorithms that can select contours to plot > >while also accepting user specifed contours? > > >Something like: > > >ContourPlot[yaddayadda,Contours->AutomaticButIncludeThese[{5,10,15}] > >] > > One way to accomplish this would be as follows: > > Show[ > Block[{$DisplayFunction=Indentity}, > {ContourPlot[yaddayadda,Contours->Automatic], > ContourPlot[yaddayadda,Contours->A{5,10,15}]}]]; > > -- > To reply via email subtract one hundred and four > > -- http://chris.chiasson.name/