Chapter 7

% Program 7_1

% Illustration of Deconvolution

%

Y = input('Type in the convolved sequence = ');

H = input('Type in the convolving sequence = ');

[X,R] = deconv(Y,H);

disp('Sequence x[n]');disp(X);

disp('Remainder Sequence r[n]');disp(R);

% 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) <>