[pascal] wyznacznik macierzy

honv
Użytkownik
Użytkownik
Posty: 1
Rejestracja: 10 cze 2007, o 18:51
Płeć: Mężczyzna
Lokalizacja: polska

[pascal] wyznacznik macierzy

Post autor: honv »

witam, byłbym bardzo wdzięczny gdyby ktoś wytłumaczył mi dość wyczerpująco działanie tego algorytmu, z góry wielkie dzięki

Kod: Zaznacz cały

function det(stopien, wiersz : integer;
             var wk : kwektor;
             var A  : macierz) : extended;
var
  i,j,k,m : integer;
  kolumny : kwektor;
begin
  if stopien = 1 then
    Result := A[wiersz,wk[1]]
  else
  begin
    Result := 0; m := 1;
    for i := 1 to stopien do
    begin
      k := 1;
      for j := 1 to stopien - 1 do
      begin
        if k = i then inc(k);
        kolumny[j] := wk[k];
        inc(k);
      end;
      Result := Result+m*A[wiersz,wk[i]]*det(stopien-1,wiersz+1,kolumny,A);
      m := -m;
    end;
  end;
end;
ODPOWIEDZ