permprod.m

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

function R=permprod(P,Q)
%PERMPROD
%Product of two permutations defined by matrices A and B.
%Calling format: C=perm(A,B)

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

disp(' ')
format compact
X=size(P);
R(1,:)=P(1,:);

for i=1:X(1,2),
 R(2,i)=P(2,Q(2,i));
end