maxentob.m

来自「这是在网上下的一个东东」· M 代码 · 共 16 行

%
% f=maxentobj(x)
%
function f=maxentobj(x)
global A;
global b;
global w;
global alpha;
global K;
%
%
%
xabs=abs(x);
f=norm(A*x-b)^2+alpha^2*xabs'*log(w.*xabs)+K*norm((xabs-x)/2)^2;