explore.m

来自「various matlab programs to slove various」· M 代码 · 共 10 行

function [x]=explore(h,n,f,x0)
x = x0; f0 = eval(f);
for i=1:n
  x(i) = x(i) + h(i);  ff = eval(f);
  if ff < f0,    f0 = ff;   else
    x(i) = x0(i) - h(i);   ff = eval(f);
    if ff < f0,   f0 = ff;   else,   x(i) = x0 (i);   end
  end
end
return