This commit is contained in:
2023-11-14 17:10:27 +08:00
commit d5a822831c
423 changed files with 5909 additions and 0 deletions

10
FOTF Toolbox/padefcn.m Normal file
View File

@ -0,0 +1,10 @@
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