extracting contour points
- To: mathgroup at smc.vnet.net
- Subject: [mg92447] extracting contour points
- From: peterp <peterp at m.njit.edu>
- Date: Tue, 30 Sep 2008 21:54:39 -0400 (EDT)
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]]