function elements=gen_ele(jset,order,i,ele)

[m,n]=size(jset);
[me,ne]=size(ele);

if m==1
   if sum(size(ele))==0
      % trata-se de uma rede univariavel
      elements=jset';
   else
      % rede multivariavel; final da recursao
      for j=1:order(i)
         if j==1
            elements=[ele ones(me,1)*jset(1,j)];
         else
            elements=[elements; ele ones(me,1)*jset(1,j)];
         end
      end
   end
else
   if sum(size(ele))==0
      % 1ª chamada para uma rede multivariavel
      elements=jset(1,1:order(i))';
      elements=gen_ele(jset(2:m,:),order,i+1,elements);
   else
      %outros casos
      for j=1:order(i)
         if j==1
            elements=[ele ones(me,1)*jset(1,j)];
         else
            elements=[elements; ele ones(me,1)*jset(1,j)];
         end
      end
      elements=gen_ele(jset(2:m,:),order,i+1,elements);
   end
end