La versione più recente è stata modificata il 2006-02-19 16:15:40 da Bruno82
Aggiunzioni:
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}];
M2=Table[Join[Idn[[i]],Nnm[[i]]],{i,1,n}];
Mx=Join[M1,M2];Mx]
Omissioni:
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}];
M2=Table[Join[Idn[[i]],Nnm[[i]]],{i,1,n}];
Mx=Join[M1,M2];Mx]
Modificato il 2006-02-19 16:10:34 da SoNiC
\Nessuna differenza.
Modificato il 2006-02-19 16:10:23 da SoNiC
Aggiunzioni:
Modificato il 2006-02-19 16:09:55 da SoNiC
Aggiunzioni:
Matrice a blocchi
MatEst[T]
Omissioni:
Matrice a blocchi
Modificato il 2006-02-19 16:09:43 da SoNiC
Aggiunzioni:
MatEst[Mat_]:=Block[{},
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}}
