program_7_2.m

来自「《数字信号处理：基于计算机的方法（第三版）》资源下载第三部分。 著者： （美）」· M 代码 · 共 10 行

% Program 7_2
% Stability Test of a Rational Transfer Function
%
% Read in the polynomial coefficients
den = input('Type in the denominator coefficients =');
% Generate the stability test parameters
k = poly2rc(den);
knew = fliplr(k');
disp('The stability test parameters are');disp(knew);
stable = all(abs(k) < 1)