Hallöchen!
Bei mir funktioniert cc[[1,2,2,2,1,2,1]] statt cc[[1,2,2,2,2,1]].
Sicherer scheint mir daher
line = cc[[Sequence @@ First[Position[cc, {__Integer}]] ]]
oder möglicherweise gar
line = cc[[Sequence @@ First[
Position[cc, ix: {__Integer} /; Length[ix] > 10 ]
]
]]
um nicht irgendwelche nicht bedachten kurzen Listen einzubeziehen.
Schöne Adventszeit,
Peter
Am 06.12.2015 um 22:21 schrieb h.dolhaine--- via demug:
> Siehe notebook.
>
> Gruß
> HD
>
> -----Ursprüngliche Nachricht-----
> Von: demug [mailto:demug-bounces@XXXXXXX.ch] Im Auftrag von Dr.Wolfgang
> Quapp via demug
> Gesendet: Sonntag, 6. Dezember 2015 15:55
> An: demug@XXXXXXX.ch
> Betreff: [Dmug] ContourPlot
>
> 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
>
>
>
>
> _______________________________________________
> DMUG Deutschsprachiges Mathematica-Forum demug@XXXXXXX.ch
> http://www.mathematica.ch/mailman/listinfo/demug
> Archiv: http://www.mathematica.ch/archiv.html
>
_______________________________________________
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