dm13108.m

the code of the book come form the book of marlix laboratory with the book of singal

% dm13108
% z变换部分分式展开
B=input('请输入分子多项式系数向量');            % 从键盘输入分子多项式系数
A=input('请输入分母多项式系数向量');              % 从键盘输入分母多项式系数
[r,p,k]=residue(B,A);                           % 计算部分分式展开留数等
disp('留数');disp(r')                           % 显示部分分式展开留数
disp('极点位置');disp(p')                       % 显示极点位置
disp('多项式系数'); disp(k)                     % 显示部分分式展开多项式系数