pade_redc.m

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

function G_red=pade_redc(G_Sys,nn,nd)
c=timmomt(G_Sys,nn+nd+1);
[nred,dred]=pade_app(c,nn,nd);
G_red=tf(nred,dred);