maxentgr.m

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

function g=maxentgrd(x)
global A;
global b;
global w;
global alpha;
global K;

xabs=abs(x);
g=2*A'*(A*x)-2*A'*b+alpha^2*(log(w.*xabs)+ones(size(w)))-K*2*((xabs-x)/2);