rowswap.m

来自「线性代数实验及MATLAB入门,电子工业出版社出版 陈怀琛 龚杰民合著」· M 代码 · 共 12 行

function B=rowswap(A,i,j)
% The command rowswap(A,i,j) interchanges 
% rows i and j of the matrix A and outputs
% the resulting matrix.
[m,n]=size(A);
if i<1|i>m|j<1|j>m
   error('Index out of range')
end
B=A;
B(i,:)=A(j,:);
B(j,:)=A(i,:);