% Program 6_4
% Partial-Fraction Expansion to Rational z-Transform
% e.g   r = [0.36 0.24 0.4]
%       p = [0.5 -0.3333 -0.3333
%       k=0
% r = input('Type in the residues = ');
% p = input('Type in the poles = ');
% k = input('Type in the constants = ');
r = [0.36 0.24 0.4];
p = [0.5 -0.3333 -0.3333];
k=0; 
[num, den] = residuez(r,p,k);
disp('Numerator polynomial coefficients'); disp(num)
disp('Denominator polynomial coefficients'); disp(den)