Algoritmo Priorità
L'algoritmo Priorità determina la posizione dell'elemnto della matrice A che ha la priorità nel procedimento di diagonalizzazione di A.
INPUT: la matrice A;
OUTPUT: la lista di interi {i,j} che indica la posizione delle'elemento di A che ha la priorità nel processo di diagonalizzazione.
Priorità[A_]:=Block[{i,j,k,t,L={}},
m=Length[A];n=Length[A[[1]]];
i=1;j=1;
While[(i<n)&&(i<=m)||(j<m) &&(j<=n),
If[i<n,
k=n;
While[k>i,
If[A[[i,k]]=!=0,L={i,k};Return[L],k--] ] ] ;
If[( j<m),
t=m;
While[(t>j),
If[A[[t,j]]=!=0,L={t,j};Return[L],t--] ] ];
i++;j++];L]
Esempio
T={{3,-1,0,2,-3},{3,1,1,0,0},{2,0,0,0,5}}
{{3,-1,0,2,-3},{3,1,1,0,0},{2,0,0,0,5}}
Priorità[T]
{1,5}
Torna all'elenco dei capitoli
Non ci sono commenti in questa pagina. [Scrivi commento]