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>