p2_8.m

《数字信号处理实验指导书（MATLAB 版）》 著者： （美）米特拉著 作译者： 孙洪等译 ISBN号： 7-121-00700-2 出版日期： 2005-01 出版社：电子工业出

% Program P2_8
% Stability test based on the sum of the absolute 
% values of the impulse response samples
clf;
num = [1 -0.8]; den = [1 1.5  0.9];
N = 200;
h = impz(num,den,N+1);
parsum = 0;
for k = 1:N+1;
	parsum = parsum + abs(h(k));
	if abs(h(k)) < 10^(-6), break, end
end
% Plot the impulse response
n = 0:N;
stem(n,h)
xlabel('Time index n'); ylabel('Amplitude');
% Print the value of abs(h(k)) 
disp('Value =');disp(abs(h(k)));