% pooling theory
function f0=pool(contr,m,F,v)

for i=1:m

f0(i)=1;

  for j=1:(m-2)*F
   f0(i)=f0(i)*contr(i,j)^(v(j));
  end 
end
f0=f0/norm(f0,1);