relrouth.m

用MATLAB的脚本语言M语言编写的

function [rtab,msg]=relrouth(den,ss)
rpoly=1; rden=den(end);
for i=1:length(den)-1
   rpoly=conv(rpoly,[1,ss]);
   rden=[0,rden]+den(end-i)*rpoly;
end
[rtab,msg]=routh(rden);