Hallo an Alle,
"ContourPlot[x^2 + y^2, {x, 0.0, 1.0}, {y, 0.0, 1.0}, Contours -> {1/2, 1}]
// First@Cases[#, GraphicsComplex[l_, m_] :> (l[[#]] & /@ Cases[m, Line[n_]
:> n, Infinity]), Infinity] &
%//Line//Graphics"
ist richtig und gut. Aber etwas weniger verschachtelt (zwar ziemlich genau
dasselbe wie in dem Code von Robert, aber vielleicht "einsichtiger") wäre
cc = ContourPlot[x^2 + y^2, {x, 0.0, 1.0}, {y, 0.0, 1.0},
Contours -> {1/2, 1}]
L1 = Cases[cc, GraphicsComplex[x__] :> x, Infinity][[1]];
L2 = Cases[cc, Line[x_] :> x, Infinity];
L1[[#]] & /@ L2;
ListLinePlot[%, AspectRatio -> 1]
Gruß
HD
_______________________________________________
DMUG Deutschsprachiges Mathematica-Forum demug@XXXXXXX.ch
http://www.mathematica.ch/mailman/listinfo/demug
Archiv: http://www.mathematica.ch/archiv.html
DMUG-Archiv, http://www.mathematica.ch/archiv.html