jac.m

这是在网上下的一个东东

%
%
%
function J=jac(p)
%
% global variables.
%
global H;
global TM;
global SIGMA;
global D;
global Q;
%
%
%
n=length(TM);
J=zeros(n,2);
for i=1:n
  J(i,1)=(-Q*D^2*exp(-D^2*p(1)/(4*p(2)*TM(i)))/...
         (16*pi*p(2)^2*TM(i)^2))/SIGMA(i);
  J(i,2)=(Q/(4*pi*p(2)^2*TM(i)))*...
          ((D^2*p(1))/(4*p(2)*TM(i))-1)*...
          exp(-D^2*p(1)/(4*p(2)*TM(i)))/SIGMA(i);
end