用阻尼牛顿法求解无约束问题: minf(x),armijo

function [x,val,k]=dampnm(fun,gfun,Hess,x0) 
%功能:用阻尼牛顿法求解无约束问题: minf(x)
%输入:x0是初始点，fun,gfun,Hess 分别是求目标函数值，梯度，Hesse矩阵的函数
%输出: x,val分别是近似最优点和最优值，k是选代次数。
maxk=100;      %给出最大迭代次数
rho=0.55;sigma=0.4; 
k=0;  epsilon=1e-5; 
while(k<maxk)
    gk=feval(gfun,x0);%计算梯度
    Gk=feval(Hess,x0);%计算Hesse矩阵
    dk=-Gk\gk;%解方程组Gk*dk=-gk,计算搜索方向
    if (norm(gk)<epsilon),break; end %检验终止准则
    m=0; mk=0; 
    while (m<20) %用Armij0搜索求步长
         if(feval (fun, x0+rho^m*dk)<feval (fun,x0)+sigma*rho^m*gk'*dk) 
             mk=m; break; 
         end 
         m=m+1;
    end
    x0=x0+rho^mk*dk;
    k=k+1;
end
x=x0; 
val=feval(fun,x);
function f=fun(x)
f=4*x(1)^2+x(2)^2-8*x(1)-4*x(2);
function g=gfun(x)
g=[8*x(1)-8,2*x(2)-4]';
function He=Hess(x) 
n=length(x);
He=zeros(n,n);
He=[8, 0;
     0, 2];

function mk=armijo(xk, dk) 
beta=0.5;  sigma=0.2; 
m=0;mmax=20; 
while (m<=mmax) 
    if(fun(xk+beta^m*dk)<=fun(xk)+sigma*beta^m*gfun(xk)'*dk) 
         mk=m; break; 
    end 
    m=m+1; 
end 
alpha=beta^mk
newxk=xk+alpha*dk 
fk = fun(xk) 
newfk = fun(newxk)
function f=fun(x) 
f=100*(x(1)^2-x(2))^2+(x(1)-1)^2; %梯度
function gf=gfun(x) 
gf=[400*x(1)*(x(1)^2-x(2))+2*(x(1)-1),-200*(x(1)^2-x(2))]'