主函数(main_newton.m)
% Newton法求解目标函数的局部最小值
% Meringue
% 2017/4/1
% ---------------------------
% ---------------------------
clc
clear all
close all
% 迭代参数
x0 = -100; % 初始值
err0 = inf; % 误差初始设为inf
iter = 0;% 迭代次数
errMax = 1e-3; % 最大容许误差
iterMax = 100; % 最大迭代次数
% 迭代过程
x(iter+1) = x0;
while err0>errMax
% 迭代终止条件1:达到最大迭代次数
if iter == iterMax
disp('达到最大迭代次数!');
break;
end
% Newton迭代过程
iter = iter+1;
[~,dy,d2y] = func1(x(iter));
x(iter+1) = x(iter)-dy/d2y;
% 迭代终止条件2:找到满足精度要求的解
if abs(x(iter+1)-x(iter))<errMax
disp('找到满足精度要求的解!')
disp(['x = ',num2str(x(iter+1))]);
disp(['迭代次数为',num2str(iter-1)]);
break;
end
end
% 迭代结果展示
plot(x)
xlabel('t');ylabel('x')
目标函数(func1.m)
function [y,dy,d2y] = func1(x)
% y = x.^2-2
y = x.^4-2*x^2+1;
dy = 4*x^3-4*x;
d2y = 12*x^2-4;
运行结果
目标函数在x = -1取得极小值
迭代次数为10