function f = fnctrosen1(x);

%  Evaluates function  generalized 
%            Rosenbrock : rosen(x + b(:,ifnct)
%  x should be n x 1 !!!

%  optimal solution:  (-1, 1, 1, ... , 1)^T
%  optimal function value:  1

n = length(x);

f = 1;
for i=2:n,
  f = f + 50*(x(i)-x(i-1)^2)^2 + (1-x(i))^2;
end