Hallo Herr Quapp
Am saubersten funktioniert das, ohne Kenntnis der Positions Indices der
Grafikteile, auch für mehrerer Contours (nach meiner beschiedenen
Erfahrung) mittels Patternmatching wie folgt:
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
MfG
Robert Nowak
Am 06.12.2015 um 15:55 schrieb Dr.Wolfgang Quapp via demug:
Liebe Mitglieder der Mma-Liste,
Ich nutze fuer die Null-Linie einer 2-dimensionalen Flaeche
(die zu kompliziert ist um sie direkt zu berechnen)
den Graphik -Befehl
ContourPlot[f[x, y],{x,0.0,1.0}, {y,0.0,1.0},
ContourShading -> False, Contours - >1, ... ]
Das funktioniert problemlos; aber nun moechte ich die ausgeplottete Kurve
weiterverwenden: Ich moechte durch ein weiteres 2-dimensionales
Flaechenstueck
mit der geplotteten Kurve als Koordinatenlinie eine Kurve als
Profillinie ziehen.
Wie kann ich Mma dazu bringen, mir die Daten der geplotteten Kurve
auszugeben?
Fuer jeden Hinweis waere ich dankbar. Es koennte auch eine
'halbautomatische'
Loesung sein, bei der man noch etwas mit Hand machen muss. Nur moechte
ich
nicht alle Kurvenpunkte mit der Maus abgreifen...
Mit Dank im Voraus
Wolfgang Quapp
--
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 09:31:29
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
DMUG-Archiv, http://www.mathematica.ch/archiv.html