paderm.m

来自「用MATLAB的脚本语言M语言编写的」· M 代码 · 共 5 行

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);