nsmjacp.m

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

function j=nsmjacp(x,p,n)
global nsmds cds
if cds.options.SymDerivativeP >=1
  jj = feval(nsmds.JacobianP, 0, x, p{:});
  jj = jj(:,nsmds.ActiveParams);
  AA=jj;
  for s=1:n-1
   x=feval(nsmds.func,0,x,p{:});
   jj1 = feval(nsmds.JacobianP, 0, x, p{:});
   jj1 = jj1(:,nsmds.ActiveParams); 
   AA=(nsmjac(x,p,1))*AA+jj1;
  end
  j=AA;
else
for i=nsmds.ActiveParams
      p1 = p; p1{i} = p1{i}-cds.options.Increment;
      p2 = p; p2{i} = p2{i}+cds.options.Increment;
      x1=x;x2=x;
      for m=1:n     
        x1= feval(nsmds.func, 0, x1, p1{:});
        x2=  feval(nsmds.func, 0, x2, p2{:});
      end
    jt(:,i) = x2-x1;
    j = jt/(2*cds.options.Increment);
end    
    j=j(:,nsmds.ActiveParams);
end