Inverse einer matrix

[gammatester]

Hallo,

zu allererst soltest Du Deinen Quelltext in Delphi formatieren (Helmsymbol).

Ich kann in Deiner procedure invers(spalten1, zeilen1: Integer) weder eine Eingabe- noch eine Ausgabematrix erkennen. Was sind die Parameter? Invertieren kann man nur eine "quadratische Matrix", also eine Matrix mit Spaltenzahl=Zeilenzahl, also wäre nur eine Eingabe zu erwarten.

Was funktioniert nicht? Kannst Du Deinen Quellcode nicht übersetzen (wäre kein Wunder, da eine procedure kann nie mit break enden kann) oder erhältst Du falsche Ergebnisse oder was?

[DeddyH]

Das break gehört zur Schleife

Zitat:

Delphi-Quellcode:

for k := 0 to zeilen1 - 1 do
  for j := 0 to zeilen1 - 1 do //hier
    if j <> k then
      begin
        for i := 0 to spalteninv - 1 do
          matIn[j, i] := matIn[j, i] - ((matIn[j, k] / matIn[k, k]) * matIn[k, i]);
      end
    else
      break;