function y = f1(x)
% test function with minimizer in [0,1]

%disp( ' call of f1 ' ); % to check how often this routine is being called

y = -sin(3*x)+1;                              %min at pi/6
%y = exp(10*x)-exp(10)*x+14752.0380362796;     %min near 0.7697414907
%y = -atan(10*x)+atan(10)*x+0.822937744880092; %min near 0.24078011
%y = x.^4-x+0.472470393710578;                 %min at .25^(1/3)
%y = (x-.1)^4;                                 %min at .1
%y = 1+(x-.1)^4;                       %small interval of minimizers near.1 
%sv = 1.0e4; y = abs(x-2/7)*2*sv-cos(sv*(x-2/7))+1; %min at 2/7
%y = 1+(x-1/7)^2;
%y = (x-1/7)^2;
%y = max(1/7-x,100*x-100/7);

end

