www.pudn.com > work123.rar > Gong_E1.m

function [ output_args ] = Gong_E1( input_args ) 
%GONG_E Summary of this function goes here 
%  Detailed explanation goes here 
times=1; 
circles=1; 
x1=input('请输入初始点[x1,x2]='); 
s=input('请输入精度s='); 
xk=x1; 
xk_1=x1; 
d_x1=D_F(x1);%求出初始点导数 
d_xk=d_x1; 
d_xk_1=d_x1; 
H1=eye(2); 
Hk=eye(2); 
Hk_1=eye(2); 
if(norm(d_x1,2)s) 
          d_x1=D_F(x1); 
          d_x1=d_x1.'; 
          z_1=-H1*d_x1;%求出搜索方向 
          z_k=z_1; 
          z_k=z_k.'; 
       while(times<2) 
               circles=circles+1;          
               p=min_f3(xk,z_k); 
           xk_1=xk+p.*z_k; 
               d_xk_1=D_F(xk_1);   
               if(norm(d_xk_1)