program_08_01.m

来自「自编的一些小波源程序,用MATLAB编的.希望对那些喜欢小波的人有所帮助.去解压」· M 代码 · 共 15 行

% Program 8_1
% Impulse Response Computation
%

colordef black;
n = input('Impulse response length desired = ');
num = input('Numerator coefficients = ');
den = input('Denominator coefficients = ');
x = [1 zeros(1,n-1)];
order = max(length(num),length(den))-1;
si = [zeros(1,order)];
y = filter(num,den,x,si);
stem(n-1,y)
xlabel('Time index n'); ylabel('Amplitude');
title('Impulse response samples')