Koordinatensystem addieren.

[venice2]

Zitat von Redeemer:

Zitat von juniorA:

Koordinatensysteme addieren

Als Mathematiker stehen mir die Haare zu Berge.
Man kann Vektoren addieren. Koordinatensysteme sind eine grafische Darstellung, die kann man nicht addieren.

Immer diese Pfennigfuchserei.
Alle verstehen was gemeint ist warum du nicht auch?

[Andreas13]

Hallo juniorA,
wie ich es bereits unter #5 dargestellt habe, mußt Du ein Koordinatensystem als absolutes Koordinatensystem festlegen und alle anderen Punkte durch Vektor-Addition bzw. Vektor-Subtraktion in die absoluten Koordinaten umrechnen. Wenn Du wissen willst, wie das geht, benutze meine Procedure Get_Punkt_Neu(..), wenn Du es lediglich erledigen willst, ohne groß zu wissen wieso und warum, dann kannst Du die Unit von Frühlingsrolle unter #6 benutzen.
Ich habe für Dich die beilegende Excel-Tabelle erstellt, damit Du Dich dabei nicht „verläufst“. Dort kannst Du alles schrittweise nachvollziehen, damit Du Deine Berechnung in Delphi umsetzen und kontrollieren kannst.
Gruß, Andreas
PS:
Du könntest den Titel Deines Topics z.B. in Koordinaten-Transformation in 3D umbenennen, damit wir alle beruhigt werden.

[ZYLAGON]

Vielleicht kommst Du beim Umrechnen von Lokal- in Globalkoordinaten mit der Funktion "LocalToAbsoluteVector" weiter.
Die Punkte in Deiner Skizze könnten ja kleine 3D-Sphären sein.
Dann kann man auf "LocalToAbsoluteVector" zugreifen.


Nur ein kleines Beispiel, was mit der Aufgabenstellung zwar nichts zu tun hat, aber den Einsatz von "LocalToAbsoluteVector" zeigt (da hatte ich mal eine 3D-Figur abgebremst):

Delphi-Quellcode:

      //Pfeiltaste oben nicht gedrückt
      if GetAsyncKeystate(VK_UP)=0 then
        begin
          Zielpunkt.Position.Z:=Zielpunkt.Position.Z * 0.95;
          if Zielpunkt.Position.Z<0.01 then Zielpunkt.Position.Z:=0.01;
          fZielpunktVektor:=Zielpunkt.LocalToAbsoluteVector(Zielpunkt.Position.Vector);
          Figur.Position.Vector:= fZielpunktVektor;
        end;

VG ZYL