function plota_espectro(parametros,f,e,np_comp,freq,pasta,plota,estagio,grava_tex)

nf = size(e,2);
np = size(e,1);
assert(size(freq,2) == nf);
assert(size(f,2) == nf);
assert(size(f,1) == np);

for i = 1:nf
    plt(i,1) = freq(1,i);
    plt(i,2) = norma_erro_L2(f(:,i),np_comp);
    plt(i,3) = norma_erro_L2(e(:,i),np_comp);
end
plt = sortrows(plt);
figure(13+plota.janela_base);
semilogy(plt(:,1),plt(:,2),'r')
hold on
semilogy(plt(:,1),plt(:,3))
title(sprintf('erro em funcao da frequencia'),'FontSize',20);
if plota.salva_eps
    saveas(gcf,sprintf('%s/freq.eps',pasta));
end
hold off

