Drahtgitteroptimierung evtl. mit Baumstruktur. Wie?

[choose]

Hallo dizzy,

ich gehe nach Deiner Beschreibung davon aus, dass Du bisher keine Datentypen für die Vertices bzw Faces besitzt. Darüber hinaus scheints Du über keine Art von Container dieser nicht-vorhandenen Datentypen zu verfügen.

Führe beides in der Form TVertex, TShape bzw TVertices und TShapes in Form von Klassen ein bzw. schreibe Dir Hilfsfunktionen, wenn Du mit dynamischen Arrays und Records oder etas ähnlichem Arbeiten möchtest.

Neben der Möglichkeit, dem Container TVertices neue Punkte hinzuzufügen, z.B.

Delphi-Quellcode:

var
  myVertex: TVertex;
begin
  myVertex:= myVertices.Add(x, y, z);

solltest Du auch Methoden zum Finden (Find), Löschen (Clear) etc. erstellen, so dass Du mit der Methode

Delphi-Quellcode:

function TVertices.FindOrCreateAndAdd(const X, Y, Z: Integer): TVertex;
begin
  if Self.Has(X, Y, Z) then
    Result:= Self.Find(X, Y, Z)
  else
    Result:= Self.Add(X, Y, Z);
end;

Dein Problem lösen können solltest:

Code:

Laden der Punkte nach EingabePunkte (TVertices)
Laden der Flächen nach EingabeFlächen (TShapes)
Erzeugen einer Leeren Punktmenge (TVertices)
Erzeugen einer Leeren Flächenmenge (TShapes)
Für jede Fläche f in EingabeFlächen 
  Wenn Fläche nicht in AusgebeFlächen 
    erstelle neue Fläche g
    Für jeden Punkt p in f
      q:= findeOderErzeugePunkt in AusgabePunkte
      füge q zu g hinzu
    füge g den Ausgabeflächen hinzu
Speichere die AusgabePunkte
Speichere die AusgabeFlächen

Bleiben nun nur noch die Funktionen zum Laden/Speichern