Drehsinn von Ebenen

[Bjoerk]

Gibt es die Möglichkeit herauszufinden ob der Drehsinn einer Ebene mathematisch positiv oder negativ eingegeben wurde (Siehe Anlage)? :oops:

[Memnarch]

Ich schätze mal nicht. Für eine Drehung bzw eine sichtbare Orientierung eines Objektes gibt es mehrere Wege die nach Rom führen.

[Bambini]

Zitat:

Zitat von Bjoerk (Beitrag 1319938)

Gibt es die Möglichkeit herauszufinden ob der Drehsinn einer Ebene mathematisch positiv oder negativ eingegeben wurde (Siehe Anlage)? :oops:

Wenn man die Reihenfolge der Vertexes kennt, schon.

[Jens01]

Meinst Clockwise sowas?

Such mal nach "clockwise" auf der Seite.

So sieht die Funktion bei mir aus:

Delphi-Quellcode:

function TPolygon.IsClockwiseXY: Boolean;
// Paul Bourk - A = Area des Polygons
var
  A: Double;
  i: Integer;
begin
  A      := 0;
  for i  := 0 to Count - 2 do
    A    := A + (Self[i].X * Self[i + 1].Y - Self[i + 1].X * Self[i].Y);
  A      := A / 2;
  Result := A < 0;
end;

Bin mir aber nicht ganz sicher, ob es das ist, was Du suchst.

[Bjoerk]

Hallo Jens,
das mit A = Summe Determinanten / 2 stimmt nur am Gesamtsystem.

[Bambini]

http://stackoverflow.com/questions/1...lockwise-order

[Jens01]

Du zählst die Punkte eh irgendwie anders. Ist das FEM-Shit?:shock:

[Bjoerk]

Nee, ich zähle nicht anders? :) Deine Formel gilt hat nicht für Slice(Polygon) und wäre auch nur so wie gezeigt richtig, wenn du den 1. Punkt als letzen Punkt nochmal drin hast.

Ich brauch das für die Berechnung von Volumen und Schwerpunkt von Spannungskörpern bei schiefer Biegung für meine Polyederklasse. Polyeder sind quasi räumliche N-Ecke. Da gibt man die Eckpunkte und die einzelnen Begrenzungsebenen an. Voraussetzung ist hierbei, daß alle Ebenen mathematisch positiv eigegeben worden sind. Hierfür wollte ich eine kleine Überprüfung schreiben und falls nicht dann die Punkte in umgekehrter Reihenfolge setzen.

Delphi-Quellcode:

    Polyeder.Clear;
    Polyeder.AddPoint(1, 1, 0);
    Polyeder.AddPoint(4, 1, 0);
    Polyeder.AddPoint(4, 6, 0);
    Polyeder.AddPoint(1, 6, 0);
    Polyeder.AddPoint(4, 6, 10);

    Polyeder.AddPlane([0, 3, 2, 1]);
    Polyeder.AddPlane([1, 2, 4]);
    Polyeder.AddPlane([1, 4, 0]);
    Polyeder.AddPlane([4, 3, 0]);
    Polyeder.AddPlane([3, 4, 2]);

    ShowMessage(Format('%.3f', [Polyeder.Volumen]));
    C := Polyeder.Center;
    ShowMessage(Format('%.3f', [C.X]));
    ShowMessage(Format('%.3f', [C.Y]));
    ShowMessage(Format('%.3f', [C.Z]));

[Jens01]

Zitat:

wäre auch nur so wie gezeigt richtig, wenn du den 1. Punkt als letzen Punkt nochmal drin hast

Danke für den Himweis, schon bei mir korrigiert. Ansonsten bin ich raus. Ich schmeiss mal den Begriff Triangulation rein, aber ohne drüber nachgedacht zu haben.
Bis dahin...

[Namenloser]

Einfach von allen aneinanderliegenden Vektoren (Differenzen zwischen den Punkten) das Kreuzprodukt nehmen? Wenn bei allen Ergebnissen (wieder ein Vektor) die Z-Achse > 0 ist, ist der Drehsinn positiv. Wenn er bei allen < 0 ist, ist der Drehsinn negativ. Falls beide Vorzeichen vorkommen, ist bei der Eingabe ein Fehler passiert. Zumindest müsste das meiner Meinung nach funktionieren.

Du solltest aber auch noch prüfen, ob die Punkte wirklich auf einer Ebene liegen.