Domeniu: Limbaje de Programare
Conține 1 fișier:
doc
Pagini : 1 în total
Cuvinte : 242
Mărime: 3.76KB (arhivat)
Publicat de: Theodor Marginean
Puncte necesare: 0
Extras din laborator
function [H]=Inv_Hess(H) %Algoritm ce calculeaza inversa unei matrice (sup) Hessenberg cu ajutorul calcului factorizarii LU (Crout)
[L,U]=LUHess1(H)
H=UInv(U)*InvInfBidiag(L)
In functia de mai sus am folosit functiile:
function [L,U]=LUHess1(A) %Algoritm ce calculeaza eficient factorizarea LU(Crout) pentru o matrice Hessenberg
%date intrare : A matrice superior Hessenberg
%date iesire : matricea U si matricea L corespunzatoare multiplicatorilor calculati.
[n,n]=size(A);
L=eye(n);
for i=1:n
L(i,i)=0;
end
L(1,1)=A(1,1);
L(2,1)=A(2,1);
U=eye(n);
for j=2:n %primele doua elemente ale matricei coincid cu elementele lui L
A(1,j)=A(1,j)/A(1,1);
U(1,j)=A(1,j);
end
Preview document
Conținut arhivă zip
- Algoritm ce calculeaza inversa unei matrice.doc