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;

[z3ro]

Zitat von jfheins:

Also einen Fehler habe ich schonmal gefunden.
Du solltest dich übrigens mit der setlength Funktion vertraut machen, die nimmt auch 3 Parameter an

hah, Delphianfänger aber danke für den Hinweis! Wird mir sicher ein paar Zeilen in Zukunft ersparen

Zitat von 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;

Danke! Daran lag es, ärgere mich gerade selber über sowas banales alles funktioniert jetzt perfekt! Den einzigen "Bug" den ich jetzt noch habe ist, dass in dem StringGrid an der Position 1,1 zwar eine Zahl steht, diese allerdings erst sichtbar ist wenn ich drauf klicke?! Oo sehr seltsam.. alle anderen sind sichtbar.

[Bjoerk]

Hast du fixedrows bzw. fixedcols des stringgrid auch auf null stehen?