Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Matrice inversa - Complemento.txt

Complemento.txt

 Caricato da: Oligoatria
Scarica il programma completo

  1. procedure complemento(var inv,inv2: mat; l: integer; det: double);
  2.  var i,j: integer;
  3.      mc: mat;
  4.  
  5.  begin
  6.   writeln;
  7.   writeln('Matrice inversa');
  8.   for i:=1 to l do
  9.    begin
  10.     for j:=1 to l do
  11.      begin
  12.       if l>2 then copia_matrice(i,j,l,inv,mc);  { in mc c'Š la semimatrice }
  13.  
  14.       if l=2 then inv2[i,j]:=inv[3-i,3-j]
  15.       else inv2[i,j]:=ricorsiva(mc,(l-1));  { calcolo complemento --> determinante della semimatrice }
  16.  
  17.       inv2[i,j]:=inv2[i,j] / det;     { divido per il determinante della matrice iniziale }
  18.       if (( (i+j) mod 2 ) = 1) then inv2[i,j]:=inv2[i,j] * (-1);
  19.        write(inv2[i,j]:6:3,' ');
  20.      end;
  21.     writeln;
  22.    end;
  23.  end;