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
curvesSorted.png
Description: PNG image
curvesUnsrt.png
Description: PNG image
