www.gusucode.com > mbc 工具箱 matlab 源码程序 > mbc/@xregpointer/removeDuplicates.m
function [p,ind] = removeDuplicates(p) %removeDuplicates this is unique without the sort % % [p,ind] = removeDuplicates(p) % Copyright 2005 The MathWorks, Inc. if numel(p.ptr)>1 [psort,ind]=sort(p.ptr); dup= true(size(psort)); for i= 2:length(psort) % find duplicates dup(i)= psort(i)~=psort(i-1); end ind= sort(ind(dup)); p.ptr= p.ptr(ind); else ind= ones(size(p)); end