usunpowt.m

来自「good for who wants it」· M 代码 · 共 12 行

function x=usunpowt(x)
% trgraph
% removes the same elements from a column vector

l=length(x);
for i=1:l
    w=~(x==x(i)); % rows where there is no x(i)
    x=[x(i); x(w)];
    if i==length(x) 
        break;
    end
end