posts - 296,comments - 1,views - 2995

一.所花时间

0.6h

二.代码量

30行

三.博客量

1篇

四.了解到的知识点

实验四:共轭梯度法程序设计

一、实验目的

掌握共轭梯度法的基本思想及其迭代步骤;学会运用MATLAB编程实现常用优化算法;能够正确处理实验数据和分析实验结果及调试程序。

二、实验内容

(1)求解无约束优化问题:

(2)终止准则取;

(3)完成FR共轭梯度法的MATLAB编程、调试;

(4)选取几个与实验二实验三中相同的初始点,并给出相关实验结果的对比及分析(从最优解、最优值、收敛速度(迭代次数)等方面进行比较);

(5)按照模板撰写实验报告,要求规范整洁。

三、算法步骤、代码、及结果

1.算法步骤

(1)给定迭代精度0<=  ε  <=1 和初始点x0∈ Rn,计算g0=▽f(x0),d0=-g0,令k:=0

(2)若||gk||<=ε,停算,输出x*≈xk

(3)利用某种线性搜索方法确定搜索步长αk,计算xk+1=xkkdk,gk+1=▽f(xk+1

(4)更新搜索方向dk+1:=-gk+1kdk,其中βk由FR公式确定

(5)令k:=k+1,转步骤2

2.代码

%新建fun.m脚本文件
function f=fun(x)
f= (x(1)+10*x(2))^2+5*(x(3)-x(4))^2+(x(2)-2*x(3))^4+10*(x(1)-x(4))^4;


%新建gfun.m脚本文件
function gf=gfun(x)
gf = [2*(x(1)+10*x(2))+40*(x(1)-x(4))^3;  20*(10*x(2)+x(1))+4*(x(2)-2*x(3))^3;  10*(x(3)-x(4))-8*(x(2)-2*x(3))^3;  -10*(x(3)-x(4))-40*(x(1)-x(4))^3];


%新建frcg.m脚本文件
function [k,x,val]=frcg(fun,gfun,x0_list,epsilon,N)
%功能:FR非线性共扼梯度法求解无约束问题: min f(x)
%输入: fun, gfun分别是目标函数及其梯度,xO是初始点
%  epsilon是容许误差,N是最大迭代次数
if nargin<5,N=1000; end
if nargin<4, epsilon=1.e-6; end

for i = 1:length(x0_list)-1
    x0 = x0_list(:,i);
    fprintf('初始点 (%g; %g; %g; %g)\n', x0(1), x0(2), x0(3), x0(4));

    beta=0.6; sigma=0.4;
    n=length(x0); k=0;
    while(k<N)
        gk=feval(gfun,x0);%计算梯度
        itern=k-(n+1)*floor(k/(n+1));
        itern=itern+1;%计算搜索方向
        if(itern==1)
            dk=-gk;
        else
            betak=(gk'*gk)/(g0'*g0);%利用FR公式更新参数β
            dk=-gk+betak*d0; gd=gk'*dk;
            if(gd>=0.0), dk=-gk; end
        end
        if(norm(gk)<epsilon), break; end %检验终止条件
        m=0; mk=0;
        while(m<20)%用Armijo搜索求步长
            if(feval(fun,x0+beta^m*dk)<=feval(fun,x0)+sigma*beta^m*gk'*dk)
                mk=m; break;
            end
            m=m+1;
        end
        x=x0+beta^mk*dk;
        g0=gk; d0=dk;
        x0=x; k=k+1;
    end
    val=feval(fun,x);

    fprintf('迭代次数: %d\n', k);
    fprintf('最优点: (%g; %g; %g; %g)\n', x(1), x(2), x(3), x(4));
    fprintf('最优函数值: %g\n', val);
    fprintf('\n');
end



% 命令行输入
% x0=[-1,-2,3;  1,7,10;  3,-4,5;  3,6,4];
% frcg('fun','gfun',x0);

 

3.结果

 

posted on   leapss  阅读(4)  评论(0编辑  收藏  举报
相关博文:
阅读排行:
· 25岁的心里话
· 闲置电脑爆改个人服务器(超详细) #公网映射 #Vmware虚拟网络编辑器
· 零经验选手,Compose 一天开发一款小游戏!
· 因为Apifox不支持离线,我果断选择了Apipost!
· 通过 API 将Deepseek响应流式内容输出到前端
历史上的今天:
2023-05-23 每日打卡-30
2023-05-23 每日打卡-29
< 2025年3月 >
23 24 25 26 27 28 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31 1 2 3 4 5

点击右上角即可分享
微信分享提示