function(f,g)=func(x)
n=2;
m=3;
Q=zeros(n,n,m);
c=zeros(n,m);
for j=1:m,
   for i=1:n,
  	 for  k=i+1:n,
	  Q(i,k,j)=exp(i/k)*cos(i/k)*sin(j);
	  Q(k,i,j)=Q(i,k,j);
	 end
	   q=0;
	   for k=1:n,
		q=q+Q(i,k,j);
	   end
	Q(i,i,j)=i/n*abs(sin(j))+q;
	c(i,j)=exp(i/j)*sin(i*j);
   end
end
 h=zeros(n,m);                % vector renglon de  n elementos
% x=ones(n,1);                 % vector columna de n elementos

for j=1:m,
   h(:,j)=Q(:,:,j)*x-c(:,j);
   f(j)=x'*h(:,j);
end
g=[];

