Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

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]



  • 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