детерминанта матрици n-порядка

247

04 апреля 2005 года

wanja

1.2K / / 03.02.2003

ну, можно методом Гаусса привести ее к треугольному виду, и перемножить все элементы главной диагонали...(это проще всего)

9.6K

06 апреля 2005 года

Pasmus

7 / / 07.03.2005

Разложение по i-й строке. Рекурсия.
Плохо: O(n!). Лучше по Гауссу.

function Sign(i:Integer):Integer;
begin
if odd(i) then Sign:=-1 else Sign:=1;
end;

function Determinant(A:TMatrix; n: Integer):Real;
var
D: Real;
begin
D:=0;
for j:=1 to n do
begin
Cut(A, X, n, i, j);
D:=D + Determinant(X, n-1)*Sign(i+j);
end;
Determinant:=D;
end;

Процедура Cut должна вычеркивать i строку и j столбец. За i лучше взять n.
Код не проверял!