swap.m

来自「这里面有很多有用的东东」· M 代码 · 共 17 行

function P=swap(P)
%SWAP
%Swap two rows of matrix.
%Used in row reduction.
%Calling format: A=swap(A)

%Copyright Gareth Williams, Stetson University 
[e-mail], http://www.stetson.edu/~gwilliam
%Accompanies "Linear Algebra with Applications" by Gareth Williams

disp(' ')
m=input('swap row: ');
n=input(' and row: ');
Q=P;
P(m,:) = Q(n,:);
P(n,:) = Q(m,:);