MathGroup Archive 2009

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

Search the Archive

Re: Re: Extracting contour values from ContourPlot


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

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.


{ContourDraw[Cos[x y], {x, -\[Pi], \[Pi]}, {y, -\[Pi], \[Pi]},
   Contours -> Join[Range[-.8, -.2, .2], Range[.2, .8, .2]]],
  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]

  • Prev by Date: Re: Calculation of the surface after intersection of two spheres
  • Next by Date: Re: Time for an integration
  • Previous by thread: Re: Re: Re: Extracting contour values from
  • Next by thread: Re: Re: Extracting contour values from ContourPlot