funf693.m

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

function y = funf693 (x) 
%------------------------------------------------------------------------
% Objective function
%------------------------------------------------------------------------
   global R
   tol = 1.e-5;
   R = x;
   [i,k] = bisect (0,10,tol,100,'funp693'); 
   y = -R*i^2;