share/nelder_mead/rtest_nelder_mead.mac

   1 (if errcatch (fundef (nelder_mead)) = []
   2      then load ("nelder_mead"),
   3  0);
   4 0;
   5
   6 nelder_mead(if x<0 then -x else x^2, [x], [4]);
   7 [x = 9.536387892694628e-11];
   8
   9 (f(x) := if x<0 then -x else x^2, 0);
  10 0;
  11
  12 nelder_mead(f, [x], [4]);
  13 [x = 9.536387892694628e-11];
  14
  15 nelder_mead(f(x), [x], [4]);
  16 [x = 9.536387892694628e-11];
  17
  18 nelder_mead(x^4+y^4-2*x*y-4*x-3*y, [x,y], [2,2]);
  19 [x = 1.157212489168102, y = 1.099342680267472];