%partical-fraction expantion of a rational z-transform
num =input ('type the numerator cofficiente=');
den=input ('type the denumerator cofficiente=');
[r,p,k]=residuez(num,den);
disp('Residuez');disp(r');
disp('poles');disp(p');