isperm.m

LU矩阵分解单机版最新版本

function result = isperm(p)
% ISPERM        Is the argument a permutation?

result = 0;
if min(size(p)) > 1, return, end;
ds = diff(sort(p));
if any(ds ~= 1), return, end;
if min(p) ~= 1, return, end;
result = 1;