MathGroup Archive 2008

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

Search the Archive

Re: extracting contour points


Hi,

what Mathematica version ?

grcontour = Graphics[contour];

is useless in Version 6 and

First[grcontour] // Normal

is useless in version 5.x ??

And in your ContourPlot[] is only *one* line.

Regards
   Jens

peterp wrote:
> Hello all,
> 
> I've searched the group but I still have a problem. The contour sought
> below returns two lines (you can actually see them on the graphic output).
> The commands after the contour plot only extract the coordinates of one
> of the two lines. How do I get the second ?
> I tried replacing "First" by "Second" but no dice.
> 
> Thanks,
> Peter
> 
> f[p_, a_, x_] = - p x + x^(a + 1)
> 
> contour =
>   ContourPlot[Arg[f[1, .6, x + I y]], {x, -2, 2}, {y, -2, 2}, Contours
> -> {0},
>      ContourShading -> False, PlotPoints -> 100]
> 
> grcontour = Graphics[contour];
> InputForm[grcontour];
> lns = First[
>       Cases[First[grcontour] // Normal, Line[pts_] -> pts, \
> [Infinity]]];
> dat = Table[lns];
> Export["junk.dat", Re[dat]]
> 



  • Prev by Date: Re: extracting contour points
  • Next by Date: Re: signs in the mathematica output
  • Previous by thread: Re: extracting contour points
  • Next by thread: Re: extracting contour points