invperm.m

来自「物流分析工具包。Facility location: Continuous mi」· M 代码 · 共 19 行

function inva = invperm(a)
%INVPERM Inverse permutation.
%  inva = invperm(a)
%     a = permutation vector of the integers 1 to length(a)
%
% See also RANDPERM

% Copyright (c) 1994-2006 by Michael G. Kay
% Matlog Version 9 13-Jan-2006 (http://www.ie.ncsu.edu/kay/matlog)

% Input Error Checking ****************************************************
if any(sort(a(:)') ~= 1:length(a(:)))
   error('Input argument not a permutation vector.')
end
% End (Input Error Checking) **********************************************

inva(a) = 1:length(a);
inva = reshape(inva,size(a));