remove.m

利用电磁场的源激发方法来计算光子晶体波导例如光子晶体光纤

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]);