cplxcomp.m

《数字信号处理实验(MATLAB版)》这

function I=cplxcomp(p1,p2)
%按共轭条件排列极点-留数对。
%比较两个包含同样标量元素但（可能）具有不同下标的复数对
%本语句必须用在p2=cplxpair(p1) 语句之后,以重新排序其相应的留数向量
I=[];
for j=1:length(p2)
   for i=1:length(p1)
      if(abs(p1(i)-p2(j))<0.0001)
         I=[I,i];
      end;
   end;
end;
I=I';