5 lines
191 B
Mathematica
5 lines
191 B
Mathematica
|
function E=E1gen(A,i,j)
|
||
|
|
n=size(A); %求矩阵A的行数和列数
|
||
|
|
m=min(n); %获取矩阵行数和列数中的最小值
|
||
|
|
E=eye(m); %产生单位对角阵
|
||
|
|
E(i,i)=0; E(j,j)=0; E(i,j)=1; E(j,i)=1;
|