function plota_base(parametros,CD,TD,LD,NP,...
    p,w,A,C,R,pasta,plota,estagio)
fprintf(2,'--- inicio de plota_base -----------------------\n');
nb = size(C,2);
np = size(p,1);
%fprintf(2,'%d elementos na base\n',nb);
%fprintf(2,'%d pontos de amostragem\n',np);
%intervalo de elementos da a plotar
ib = escolhe_elemento_central(C,CD);
fb = ib;

if plota.base
    for k = ib:fb
    %for k = 1:nb
        figure(2+plota.janela_base);
        desenha_centros(C);
        hold off
        if plota.curva_nivel
            plot_contour_funcao(parametros,C,p,A(:,k),CD,LD,NP);
        else
            plot_funcao(parametros,p,A(:,k),CD,LD,NP);
        end
        title(sprintf('elemento %d tipo %d %s',...
            k,parametros.tipobase,estagio),'FontSize',20);
        hold off
        if plota.salva_eps
            saveas(gcf,sprintf('%s/psi%04d.eps',pasta,k));
        end
        plota_suporte(A(:,k),C(:,k),R(:,k),parametros.tensorial,p,...
            CD,TD,LD,pasta,plota,estagio);
        %pause
    end
end
