Matrixmultiplikation Problem

[gammatester]

Du muß selbstverständlich die Skalarproduktsumme immer wieder für jedes Element MEMatrix[i,j] neu-initialisieren, am besten setz mal die Summe direkt vor der k-Schleife auf Null:

Delphi-Quellcode:

for j := 0 to Length(MEMatrix[0])-1 do
begin
  //Errechnen der Ergebniswerte aus den eingebenen Matritzen
  summe := 0;
  for k := 0 to Length(M1Matrix[i])-1 do
    begin
          summe := summe + (M1Matrix[i,k] * M2Matrix[k,j]);
    end;
  MEMatrix[i,j] := summe;
  StringGrid3.Cells[j,i] := IntToStr(summe);
end;