IRDYn/E1gen.m

5 lines
191 B
Matlab

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;