Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Re: Extracting contour values from ContourPlot

• To: mathgroup at smc.vnet.net
• Subject: [mg100922] Re: [mg100869] Re: Extracting contour values from ContourPlot
• From: Syd Geraghty <sydgeraghty at me.com>
• Date: Thu, 18 Jun 2009 04:53:50 -0400 (EDT)
• References: <h12gg4$ect$1@smc.vnet.net> <200906150119.VAA11428@smc.vnet.net>

David,

As always a very thoughtful and insightful post.

Once again using Presentations encourages the use of very intuitive  
and elegant coding to solve the problem.

Another gem for my collection of useful Mathematica code, and another  
great reason for investing in your package..

Thanks once more ... Syd



Syd Geraghty B.Sc, M.Sc.

sydgeraghty at mac.com

Mathematica 7.0.1 for Mac OS X x86 (64 - bit) (18th February 2009)
MacOS X V 10.5.6
MacBook Pro 2.33 GHz Intel Core 2 Duo  2GB RAM



On Jun 17, 2009, at 7:34 AM, David Park wrote:

>
> Using Presentations, we can draw the extreme value contours by  
> drawing the
> contours for the underlying x y contours.



Needs["Presentations`Master`"]

Draw2D[
{ContourDraw[Cos[x y], {x, -\[Pi], \[Pi]}, {y, -\[Pi], \[Pi]},
   Contours -> Join[Range[-.8, -.2, .2], Range[.2, .8, .2]]],
  Gray,
  ContourDraw[x y == #, {x, -\[Pi], \[Pi]}, {y, -\[Pi], \[Pi]}] & /@
   Range[-2 \[Pi], 2 \[Pi], \[Pi]]},
Frame -> True,
PlotLabel -> Style[Row[{"Contours of ", Cos[x y]}], 16],
ImageSize -> 350]

• References:
  • Re: Extracting contour values from ContourPlot
    • From: Jens-Peer Kuska <kuska@informatik.uni-leipzig.de>