funf681.m

来自「matlab算法集 matlab算法集」· M 代码 · 共 9 行

function y = funf681(x)
%------------------------------------------------------------------
% Objective function for Example 6.8.1
%------------------------------------------------------------------
   global r1 r2
   x1 = x(1) - r1;
   x2 = x(2) - r2;
   y = -cos(pi*x1)*cos(pi*x2)/(1 + x1*x1 + x2*x2);