% Program 3_9
% Partial-Fraction Expansion of a Rational z-Transform
%

colordef black;
num = input('Type in numerator coefficients = ');
den = input('Type in denominator coefficients = ');
[r,p,k] = residuez(num,den);
disp('Residues');disp(r')
disp('Poles');disp(p')
disp('Constants');disp(k)