Метод Крамера Опции

[good3p]

про матрицы. правда только про определитель.
вобщем решение линейного уравнения методом крамера=))
прога есть все работает, только вот разобраться с ней никак не могу...
помогите люди добрые, объясните пожалуйста что пошагово в ней (в процедуре) творится (по-русски)! (как можно подробнее)

Код

{ рекурентная }
function opr(mt:mas4x4;nm:integer):real;
var
 n,m,d:integer;{ счетчики }
 s:real;      
 m2:mas4x4;    
begin
 if nm=2 then begin
   s:=mt[1,1]*mt[2,2]-mt[1,2]*mt[2,1];
 end else begin
    s:=0;
   for d:=1 to nm do begin
     m2:=mt;
     for n:=d to nm do
       for m:=1 to nm-1 do m2[m,n]:=m2[m,n+1];
         if (d mod 2 =nm mod 2) then s:=s+mt[nm,d]*opr(m2,nm-1)
                                else s:=s-mt[nm,d]*opr(m2,nm-1);
       end;
     end;
 opr:=s;
end;

КОД В ТЕГИ!
Oleg_Z

Плюс к этому, good3p, то что вопрос "связан с матрицей" еще не значит, что его можно кидать в любой другой вопрос на эту же тему.
Volvo

Сообщение отредактировано: volvo - 11.04.2005 22:20

[good3p]

Volvo спасибо за замечания.
klem4 мне код не надо, мне описание надо=(