init
This commit is contained in:
10
FOTF Toolbox/padefcn.m
Normal file
10
FOTF Toolbox/padefcn.m
Normal 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
|
Reference in New Issue
Block a user