remove.m

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

function out=remove(in, ind)
if ind == 1
    out = in(2:end);
    return
end
if ind == length(in)
    out = in(1:end-1);
    return
end
out = in([1:ind-1 ind+1:end]);