function resp = pode_retirar_elemento(Aj,alphaj,e,tol)
%devolve verdadeiro se a retirada do elemento alphaj*Aj da
%aproximacao eh permitida pelo criterio de aproximacao 

S = (find(Aj))';
for i = S
    ei = abs(e(i)); %erro atual
    gi = abs(e(i)+alphaj*Aj(i)); %erro sem o elemento
    if (ei > tol) && (gi > ei)
        resp = false;
        return
    elseif (ei <= tol) && (gi > tol)
        resp = false;
        return
    end
end
resp = true;
