unctemp.m

这次上传的绝对是好东西

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
function g = grdfcn(n,m,x,nprob)
  [fvec,J] = func(n,m,x,nprob,3);
  g = 2 * fvec' * J ;
  g=g';  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  function fvec = vecfcn(n,m,x,nprob)
     fvec = func(n,m,x,nprob,1);
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  function J = vecjac(n,m,x,nprob)
   [fvec,J] = func(n,m,x,nprob,2) ;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
function [n,m,x] = initpt(nprob,factor)
	[n,m,x] = initf(nprob)
        x=factor*x
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 function f = objfcn(n,m,x,nprob)
  fvec = func(n,m,x,nprob,1);
  f=fvec' * fvec;
%