function [fval]=unc_n1_sin1(x)
%reference:
%note that you can get the formulation of unc_n1_sin1 from some
%aritcles,such as
%(1)LN de Castro, FJ Von Zuben 'Learning and optimization using the clonal selection principle '
% Evolutionary Computation, IEEE Transactions on, 2002 
%
%algorithm:
%below code is  edited according to 
%(1)LN de Castro, FJ Von Zuben 'Learning and optimization using the clonal selection principle '
% Evolutionary Computation, IEEE Transactions on, 2002 
%
%solution:

% where the bounds are 0<=x<=1;
%The global minimum is at x*=0.1 and f(x*)=1;

%Copyright:
% programmers:oiltowater.
% It comply with the GPL2.0
% Copyright 2006  oiltowater 

a=power(sin(5*pi*x),6);
b=-2*power((x-0.1)/0.9,2);
fval=power(2,b)*a;

%maximize:
fval=-fval;