AW: AW: AW: Sortieren von geschlossenen Konturen

["Stefan Fuhrer" <stefan.fuhrer@XXXXXXX.com>]

Hallo zusammen,
Ihr seit verdammt schnell. Die Version von Patrick sieht sehr gut aus. Die
teste ich im Moment. Anscheinend hat es im Datensatz ein Fehler, habe ihn
aber noch nicht gefunden.. 

Auch liegt noch ein Performance Problem (es sind auch recht viele Linien)
vor. Das sortieren muss anscheinen eine Stufe früher gemacht werden. Ich
denke dabei an Polygon Strips oder so ähnlich.

Jedenfalls bin ich froh endlich einen Namen zu dem Problem zu haben. So kann
ich gezielt nach weiteren Lösungen oder Optimierungen suchen.

Besten Dank
Grues Stefan



-----Ursprüngliche Nachricht-----
Von: Patrick Scheibe [mailto:patrick@XXXXXXX.de] 
Gesendet: Dienstag, 27. Juli 2010 11:26
An: Stefan Fuhrer
Cc: 'Udo und Susanne Krause'; 'klamser'; 'Mathematica User Group Group'
Betreff: Re: AW: AW: Sortieren von geschlossenen Konturen

Moin,

sieht doch nicht schlecht aus fuer den Anfang

data = Import["~/Documents/nachhilfe/slice2.csv"];
points = Map[ToExpression, data, {2}];
Graphics3D[Point@Union[Flatten[points, 1]]]
renameRule = (Thread[# -> Range[Length[#]]] &@
    DeleteDuplicates[Flatten[points, 1]]);
unsrtEdges = points /. renameRule;
<< Combinatorica`
g = FromUnorderedPairs[unsrtEdges];
cycls = ExtractCycles[g];
i = 1;
Graphics3D[{Thick, ColorData[2, i++], 
    Line[# /. (Reverse /@ renameRule)]} & /@ cycls, BoxRatios -> 1, 
 SphericalRegion -> False]

Jetzt stellt sich noch die Frage, ob der Kreis in der Mitte und die
anderen beiden kleinen Segmente eventuell nicht geschlossen sind, oder
ob was schief geht..

Cheers
Patrick

On Tue, 2010-07-27 at 09:36 +0200, Stefan Fuhrer wrote:
> Hallo Zusammen,
> Besten Dank für die Antworten. Ich probiere sie gerade aus. Habe nicht
> gewusst, dass man einen Anhang mitsenden kann. Dies macht vieles
einfacher.
> Im Anhang ist somit ein Datensatz, welcher mehrere Konturen enthalt,
welche
> nicht sortiert sind.
> 
> Grues Stefan