remove_repeats.m

来自「利用电磁场的源激发方法来计算光子晶体波导例如光子晶体光纤」· M 代码 · 共 19 行

function [out, varargout] = remove_repeats(in)
out = in;
ind = 1;
ind2 = 1;
vInd = [];
while ind < length(out)
    if out(ind) == out(ind+1)
        out = remove(out, ind+1);
    else
        vInd(end+1) = ind2;
        ind = ind+1;
    end
    ind2 = ind2+1;
end

if nargout == 2
    varargout(1) = {[vInd length(in)]};
end