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.