|
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 |