Matrice a blocchi
L'algoritmo MatEst serve a costruire la matrice a blocchi, data la matrice Mat.
INPUT: la matrice Mat
OUTPUT: la matrice a blocchi
MatEst[Mat_]:=Block[{},
m=Length[Mat];n=Length[Mat[[1]]];
Idm=IdentityMatrix[m];Idn=IdentityMatrix[n];
M1=Table[Join[Mat[[i]],Idm[[i]]],{i,1,m}];
Nnm=Table[0,{n},{m}];
M2=Table[Join[Idn[[i]],Nnm[[i]]],{i,1,n}];
Mx=Join[M1,M2];Mx]
Esempio
MatEst[T]
{{3,-1,0,2,-3,1,0,0},{3,1,1,0,0,0,1,0},{2,0,0,0,5,0,0,1},{1,0,0,0,0,0,0,0},{0,
1,0,0,0,0,0,0},{0,0,1,0,0,0,0,0},{0,0,0,1,0,0,0,0},{0,0,0,0,1,0,0,0}}
Torna all'elenco dei capitoli
Non ci sono commenti in questa pagina. [Scrivi commento]