Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1999
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1999

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

Search the Archive

Re: Contourline values

  • To: mathgroup at smc.vnet.net
  • Subject: [mg19998] Re: Contourline values
  • From: "Allan Hayes" <hay at haystack.demon.co.uk>
  • Date: Sat, 25 Sep 1999 02:40:34 -0400
  • References: <7se5tl$qrp@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Rita Bijlsma <R.Bijlsma at iri.tudelft.nl> wrote in message
news:7se5tl$qrp at smc.vnet.net...
> Hi!
>
>   I can not find a way to get contourline values in contour plots.
>
>   Can it be done (automatically) ?
>
>                                    Thanks!
>                                             Rita
>
> --
>   .-. || Drs. Rita Bijlsma                 tel: +31-15-2787109
>  /   \|| IRI dept of Radiation Physics     fax: +31-15-2786422
>  |   ||| Delft University of Technology  email: rita at iri.tudelft.nl
>  |   |||_The Netherlands ______________ http://www.iri.tudelft.nl/~rita
>

Rita,

cg = ContourPlot[1/((x - 1)(x + 1)), {x, -2, 2}, {y, 0, 1},
      ContourShading -> False, Contours -> 3];

ContourGraphics[]


Contour graphics stores a matriex of heights - no explicit lines. To get the
lines we convert the contour graphics object to a Graphics object and then
use Cases to gert a list of the result of passing the first point
coordinates for each line to the expression being plotted. Since there may
be, as here, more than one line at the same height, we then use Union to
remove duplicates.

Cases[Graphics[cg],
    Line[{{x_, y_}, ___}] :> (1/((x - 1)(x + 1))),
    Infinity] // Union


Out[28]=
{-10175.9, -10175.9, -7.48556, -7.48556, -1.63844, -1.63844, 1.1247, 1.1247,
\
6.99341, 6.99341}


--
Allan
---------------------
Allan Hayes
Mathematica Training and Consulting
Leicester UK
www.haystack.demon.co.uk
hay at haystack.demon.co.uk
Voice: +44 (0)116 271 4198
Fax: +44 (0)870 164 0565




  • Prev by Date: NotebookPrint versus File->Print
  • Next by Date: TeX Fonts in Mathematica
  • Previous by thread: Contourline values
  • Next by thread: Re: Contourline values