FR共轭梯度法 matlab

% FR共轭梯度法
function sixge
x0=[1,0]';
[x,val,k]=frcg('fun','gfun',x0)
end

function f=fun(x) 
f=100*(x(1)^2-x(2))^2+(x(1)-1)^2; 
end

function g=gfun(x) 
g=[400*x(1)*(x(1)^2-x(2))+2*(x(1)-1), -200*(x(1)^2-x(2))]'; 
end


function [x,val,k]=frcg(fun,gfun,x0) 
maxk=5000; %最大迭代次数 
rho=0.6;sigma=0.4; 
k=0; epsilon=1e-4; 
n=length(x0); 
while(k<maxk) 
    g=feval(gfun,x0); %计算梯度
    itern=k-(n+1)*floor(k/(n+1)); 
    itern=itern+1; %计算搜索方向 
    if(itern==1) 
        d=-g; 
    else
        beta=(g'*g)/(g0'*g0); 
        d=-g+beta*d0; 
        gd=g'*d; 
        if(gd>=0.0) 
            d=-g; 
        end
    end
    if(norm(g)<epsilon), break; end
    %检验终止条件 
    m=0; mk=0; 
    while(m<15) %Armijo搜索 
        if(feval(fun,x0+rho^m*d)<feval(fun,x0)+sigma*rho^m*g'*d) 
            mk=m; break; 
        end
        m=m+1;
    end
    x0=x0+rho^mk*d; 
    val=feval(fun,x0); 
    g0=g; d0=d; 
    k=k+1;
end
x=x0; 
val=feval(fun,x);
end

  

转载于:https://www.cnblogs.com/wander-clouds/p/9238998.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值