Kann mir jemand erklären, wieso mein algorithmus im "vorderen Teil" der Matrix arbeitet und im "hinteren" nicht?
Ohne auf die merkwürdigen Interna dieser rekursiven Lösung einzugehen, hier
ein Hinweis, warum es nicht funktionieren kann:
Delphi-Quellcode:
for i := a to spaltengauss - 1 do begin
matgauss[a,i]:=matgauss[a,i]/matgauss[a,a];
end;
Was soll das bezwecken? Was es bewirkt, ist doch folgendes: matgauss[a,a] wird auf 1 gesetzt, der Rest wird durch 1 geteilt, bleibt also gleich. Eventuell hilft ja hier
Delphi-Quellcode:
for i :=spaltengauss - 1 downto a begin
matgauss[a,i]:=matgauss[a,i]/matgauss[a,a];
end;
und an der anderen Stelle.(Warum wird eigentlich a=zeilen-1 aus der Rekursion ausgespart?) Dies aber ohne Garantie. Wenn jemand unbedingt, etwas völlig Unorthodoxes programmieren will...