3x3 Matrix erstellen

[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.