relrouth.m

来自「反馈控制系统设计与分析（matlab程序）」· M 代码 · 共 8 行

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