tens5.m

来自「计算动力学系统的分岔图」· M 代码 · 共 12 行

function T5=tens5(mapsf,mapsDer5,x,p,n)
global cds
%
% Tensor5 of f at x1,x2,..xn
%
    x1=x;
    T5(:,:,:,:,:,:,1)= feval(mapsDer5, 0, x1, p{:});
    for m=2:n
     x1=feval(mapsf,0,x1,p{:});
     T5(:,:,:,:,:,:,m)= feval(mapsDer5, 0, x1, p{:});
    end