3x3 Matrix erstellen

[Boyington]

Hallo Leute,
also ich möchte eine einfache 3x3 Rotationsmatrix in Delphi erstellen, aber habe immer Fehlermeldung ("incompatible types integer and extended") bekommen, könntet ihr mir vielleicht mal helfen, wo der Fehler liegt.

Vielen Dank wie immer
Gruss
Lee

Code:

uses
  .....
type
    Matrix_3x3 = array[1..3, 1..3] of real;
   
TForm1 = class(TForm)
...

Var
  Form1: TForm1;
  Rotationsmatrix: Matrix_3x3;

implementation
....

procedure TForm1.Button2Click(Sender: TObject);
begin
  Rotationsmatrix[1.1]:=cos(TrackBar4.Position)*cos(TrackBar3.Position);
  Rotationsmatrix[1.2]:=(cos(TrackBar4.Position)*sin(TrackBar3.Position)*sin(TrackBar2.Position))-(sin(TrackBar4.Position)*cos(TrackBar2.Position));
  Rotationsmatrix[1.3]:=(cos(TrackBar4.Position)*sin(TrackBar3.Position)*cos(TrackBar2.Position))+(sin(TrackBar4.Position)*sin(TrackBar2.Position));
  Rotationsmatrix[2.1]:=sin(TrackBar4.Position)*cos(TrackBar3.Position);
  Rotationsmatrix[2.2]:=(sin(TrackBar4.Position)*sin(TrackBar3.Position)*sin(TrackBar2.Position))+(cos(TrackBar4.Position)*cos(TrackBar2.Position));
  Rotationsmatrix[2.3]:=(sin(TrackBar4.Position)*sin(TrackBar3.Position)*cos(TrackBar2.Position))-(cos(TrackBar4.Position)*sin(TrackBar2.Position));
  Rotationsmatrix[3.1]:=-sin(TrackBar3.Position);
  Rotationsmatrix[3.2]:=cos(TrackBar3.Position)*sin(TrackBar4.Position);
  Rotationsmatrix[3.3]:=cos(TrackBar3.Position)*cos(TrackBar4.Position);
end;

end.

[shmia]

1.)
Datentyp real wird nicht direkt von der FPU unterstützt und sollte vermieden werden.
Ersatz ist Double oder Extended.

Delphi-Quellcode:

type
    Matrix_3x3 = array[1..3, 1..3] of Double; // oder Extended

2.)
Sin() und Cos() erwarten ein Argument im Bogenmaß.
Ich vermute mal ganz stark, dass deine Trackbars auf "Grad" ausgerichtet sind.
Daher müsstest du die Funktion DegToRad() benützen.
Um Schreibarbeit zu vermeiden würde ich folgende Hilfs-Funktionen verwenden:

Delphi-Quellcode:

function SinDeg(value:Extended):Extended;
begin
  result := Sin(DegToRad(value));
end;
function CosDeg(value:Extended):Extended;
begin
  result := Cos(DegToRad(value));
end;

Rotationsmatrix[1.1]:=CosDeg(TrackBar4.Position)*CosDeg(TrackBar3.Position);

3.) ich glaub' nicht, dass der Fehler in dem Codestückchen ist, dass du uns gezeigt hast.

[Blup]

Der Punkt ist das Trennzeichen zwischen Vor- und Nachkommastellen.
Mit Komma werden einzelne Werte von einander getrennt.

Außerdem müssen die Werte für die Winkelfunktionen zuerst in Bogenmaß umgerechnet werden.

Delphi-Quellcode:

var
  d1, d2, d3: Double;
begin
  d2 := DegToRad(TrackBar2.Position);
  d3 := DegToRad(TrackBar3.Position);
  d4 := DegToRad(TrackBar4.Position);
  
  Rotationsmatrix[1, 1] := cos(d4) * cos(d3);
{...}

[Boyington]

Danke für die schnelle Antwort!

1. Double und Extended habe ich schon probiert, leider geht's immer nicht.

2. Ich denke, die Fehlermeldung hat mit sin() und cos() nichts zu tun,

da ich gerade NUR "Rotationsmatrix[1.1]:=3;" geschrieben habe, tritt der Fehler immer wieder auf.

Zitat von shmia:

1.)
Datentyp real wird nicht direkt von der FPU unterstützt und sollte vermieden werden:

Delphi-Quellcode:

type
    Matrix_3x3 = array[1..3, 1..3] of Double; // oder Extended

2.)
Sin() und Cos() erwarten ein Argument im Bogenmass.
Ich vermute mal ganz stark, dass deine Trackbars auf "Grad" ausgerichtet sind.
Daher müsstest du die Funktion DegToRad() benützen.
Um Schreibarbeit zu vermeiden würde ich folgende Hilfs-Funktionen verwenden:

Delphi-Quellcode:

function SinDeg(value:Extended):Extended;
begin
  result := Sin(DegToRad(value));
end;
function CosDeg(value:Extended):Extended;
begin
  result := Cos(DegToRad(value));
end;

Rotationsmatrix[1.1]:=CosDeg(TrackBar4.Position)*CosDeg(TrackBar3.Position);

3.) ich glaub' nicht, dass der Fehler in dem Codestückchen ist, dass du uns gezeigt hast.

[DeddyH]

Wie Blup schon sagte:
Rotationsmatrix[1, 1]:=3; //Komma, nicht Punkt

[Boyington]

Super, Problem schon gelöst!!!

Es soll "Rotationsmatrix[1, 1]:=...;" immer mit Komma sein, NICHT Punkt, bin blöd.

PS: Typ von "real" kann ich auch verwenden

nochmals vielen Dank für alle Antworten

l.g
Lee

[Aphton]

[mkinzler]

Aber nicht als Index(e). Diese(r) ist/sind immer vom Typ Integer. Und das Komma ist der Trenner für Parameter/Werte