Re: [Dmug] ContourPlot

["h.dolhaine--- via demug" <demug@XXXXXXX.ch>]

...ganz faszinierend! Bei mir (Mma Version 7) muss man drauf achten, dass
jeder Befehl in einer neuen Zeile steht:

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]


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]


macht etwas völlig anderes ????

Gruß
HD

_______________________________________________
DMUG Deutschsprachiges Mathematica-Forum demug@XXXXXXX.ch
http://www.mathematica.ch/mailman/listinfo/demug
Archiv: http://www.mathematica.ch/archiv.html