paderm.m

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

function [nP,dP]=paderm(tau,r,m)
c(1)=1; 
for i=2:r+m+1, c(i)=-c(i-1)*tau/(i-1); end
[nP,dP]=pade_app(c,r,m);