www.gusucode.com > mbcmodels 工具箱 matlab 源码程序 > mbcmodels/@xregusermod/lsqcon.m

    function [s,g]=lsqcon(p,U,varargin);
% xregusermod/LSQCON cost functions for fmincon

%  Copyright 2000-2004 The MathWorks, Inc. and Ford Global Technologies, Inc.




U.parameters=p(:);
if nargout>1
   [r,J]= lsqcost(U,varargin{:});
   % gradient
   g= -2*r'*J/length(r);
else
   r = lsqcost(U,varargin{:});
end
% cost function
s= sum(r.^2)/length(r);