Forum: Programmieren allgemein
by Jens01,
30. Okt 2020
Ich habe das einfach nur in den Editor getippt. Probier mal aus. Ich habe schon lange keine Matrizen mehr lösen müssen.:wink:
var
a, b : TDoubleDynArray;
m1, m2, mres : IMatrix;
begin
a := ;
b := ;
m1 := TDoubleMatrix.Create(a, 1, 3);
Forum: Programmieren allgemein
by Jens01,
30. Okt 2020
Mann, ich hab das einfach nur aus dem Testprogramm bei Github kopiert, um Dir irgendwas zu zeigen. Ich weiß nicht, warum er dafür kein BeiSpiel hat. Ist dem Michael scheinbar zu banal. Ich kann mal bei mir gucken, ob ich in meinem Code etwas finde. Moment mal...
Forum: Programmieren allgemein
by Jens01,
30. Okt 2020
Hier ist wenigstens ein Beispiel aus dem Testsystem:
procedure TestTThreadedMatrix.TestMatrixSolve;
const cBlkWidth = 512;
cBlkSize = cBlkWidth*cBlkWidth;
var a, x1, x2, b : TDoubleDynArray;
i : integer;
start, stop : int64;
index : integer;
m1, m2 : IMatrix;
Forum: Programmieren allgemein
by Jens01,
30. Okt 2020
Das Ding ist mit der Zeit etwas umfangreich geworden.
Du mußt Dir die Matrix.pas angucken.
Dort mußt Du 2 Matrizen erstellen und mit SolveLinEQ lösen. Das Ding ist sehr schnell, weil einige Teile über Assembler laufen.
Und eigentlich sehr einfach.
(Ich finde gerade kein Beispiel dafür :shock:)
Forum: Programmieren allgemein
by Jens01,
29. Okt 2020
Wenn Du einen Gleichungenlöser suchst für Delphi, dann ist das eigentlich das Maß der Dinge:
https://github.com/mikerabat/mrmath