function resp = elemento_eh_critico(Aj,alphaj,e,tol)
%Devolve true se e somente se existe alguma ponto de amonstragem onde o 
%residuo e(i) eh maior que tol e 
%zerando o coeficiente alphaj do elemento Aj faria esse erro aumentar.

S = (find(Aj))';
for i = S
    if (abs(e(i)) > tol) && (abs(e(i)+alphaj*Aj(i)) > abs(e(i)))
        resp = true;
    end
end
resp = false;
        