function [ix_a,base_a,A_a,alpha_a] = ...
    escolhe_sub_base(parametros,base,A,alpha,e)
%!!! Verificar se funciona mesmo eliminando todos os elementos da base
%usa a heuristica ApAd2
%devolve ix_a com os indices dos elementos escolhidos.
fprintf(2,'--- inicio de escolha da subbase adaptativa -----------------------\n');
tol = parametros.tol;
if parametros.heu_adap == 1
    ix_a = escolhe_sub_base_ApAd1(A,alpha,e,tol);
elseif parametros.heu_adap == 2
    ix_a = escolhe_sub_base_ApAd2(A,alpha,e,tol);
elseif parametros.heu_adap == 3
    ix_a = escolhe_sub_base_ApAd3(A,alpha,e,tol);
else assert(false)
end

if size(ix_a,2) == size(base.elementos,2)
    base_a.uniforme = base.uniforme;
else
    base_a.uniforme = false;
end
base_a.elementos = base.elementos(ix_a);

A_a = A(:,ix_a);
alpha_a = alpha(ix_a,1);
fprintf(2,'--- fim da escolha da subbase adaptativa -----------------------\n');





