% 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に戻る

