function [x fval history] = myproblem(x0)
    history = [];
    options = optimset('Display','iter','TolFun',1,'MaxIter',60,'outputFcn',@myoutput);
    [x fval] = fminsearch(@objfun, x0,options);
        
    function stop = myoutput(x,optimvalues,state);
        stop = false;
        if isequal(state,'iter')
          history = [history; x];
        end
    end
    
    function z = objfun(x)
      z = berechneEGlobal(x);
    end
end