11 lines
389 B
Matlab
11 lines
389 B
Matlab
function [nP,dP]=padefcn(c,r,m)
|
|
% padefcn Pade approximation with time moments
|
|
|
|
% Copyright (c) Dingyu Xue, Northeastern University, China
|
|
% Last modified 18 May, 2022
|
|
w=-c(r+2:m+r+1)'; vv=[c(r+1:-1:1)'; zeros(m-1-r,1)];
|
|
W=rot90(hankel(c(m+r:-1:r+1),vv)); V=rot90(hankel(c(r:-1:1)));
|
|
x=[1 (W\w)']; y=[1 x(2:r+1)*V'+c(2:r+1)];
|
|
dP=x(m+1:-1:1)/x(m+1); nP=y(r+1:-1:1)/x(m+1);
|
|
end
|