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