% zremovehead.mをUTF-8でテキストファイルとし、拡張子.mで保存してください。

function y = removehead(x)
    % remove heading zeros
    y = [];
    order = length(x);
    flag = 0;
    for n = 1:order
        if((abs(x(1,n)) < 1E-4) && flag == 0)
            y = y;
        else
            y = [y x(1,n)];
            flag = 1;
        end
    end
end

 

24. LCフィルタ設計MATLAB/GNU Octave mファイルに戻る

 

LCフィルタ設計のTOPに戻る