desend.asv

来自「最优化算法」· ASV 代码 · 共 29 行

format long %Scaled fixed point format, with 15 digits for double; 8 digits for single.
x=[0,0];
x=input('请输入初始值[x0,x1]=');
s=input('请输入初始精度s＝');
g=D_F(x);
g=g.';%转置为列向量；
while(norm(g)>s) 
    s_k=-g,   r=min_F(x,s_k),   x=x+r.*s_k.',
    g=D_F(x);
    g=g.';
    fprintf('The result is %8.5f\n', x); 
    fprintf('The daosu is %8.5f\n', g);   
end
%axis normal;
%hold on;
%view([1,1,1]);
%view(30,45);
[x,y]=meshgrid(-50:1:100);
z=peaks(x,y);
for i=-50:100
    for j=-50:100
        z=[i,j];  z=F(z);
        plot3(i,j,z);
    end
end
grid on;
%hold off;
%x=meshgrid(-50,1,100);