Re: [Dmug] ContourPlot

[Robert Nowak via demug <demug@XXXXXXX.ch>]

Hallo Hans,

du siehst, so ein Einzeiler hat seine Qualitäten ;-)

LG Robert


Am 07.12.2015 um 12:40 schrieb h.dolhaine--- via demug:
> ...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
>
>
> ---
> avast! Antivirus: Eingehende Nachricht sauber.
> Virus-Datenbank (VPS): 151206-1, 06.12.2015
> Getestet am: 07.12.2015 12:40:23
> avast! - copyright (c) 1988-2015 AVAST Software.
> https://www.avast.com/antivirus


--
DI(FH) Robert Nowak

IMS Nanofabrication AG
Schreygasse 3, 1020 Wien
Tel.: +43/12144894/332
email: robert.nowak@XXXXXXX.at
web: ims.co.at



---
avast! Antivirus: Ausgehende Nachricht sauber.
Virus-Datenbank (VPS): 151206-1, 06.12.2015
Getestet am: 07.12.2015 13:28:47
avast! - copyright (c) 1988-2015 AVAST Software.
https://www.avast.com/antivirus



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