Definition of f

f[x_, y_] := (E^Sin)[50 x] + 
          Sin[60 (E^y)] + Sin[70 Sin[x]] + Sin[Sin[80 y]] - 
          Sin[10 (x + y)] +  ((x^2) + (y^2))/4;
f[{x_, y_}] := f[x, y];

Sitzung S. 97

h = 1; gen = {f[#], #} & /@ {{0, 0}};
While[
        h > (10^(-6)), 
new = 
          Flatten[Table[#[[2]] + 
                    Table[h (2 Random[] - 1), {2}], {50}] & /@ gen, 
            1]; gen  =  
          Take[Sort[Join[gen, {f[#], #} & /@ new]], 
            50]; 
h = h/2];
gen[[1]]