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]]