function plota_celulas_KSU(K,S,U,nome,CD,LD,NC,estagio,plota,pasta)
clf
hold on
cor_U = [0.3, 0.8 0.1];
plota_celulas(U,1.0,CD,LD,NC,cor_U)

cor_S = [0.8, 0.7 0.0];
plota_celulas(S,0.9,CD,LD,NC,cor_S)

cor_K = [1.0, 0.3 0.0];
plota_celulas(K,0.8,CD,LD,NC,cor_K)

title(sprintf('celulas %s %s',nome,estagio),'FontSize',20);
axis equal
pmin = CD - 0.5*LD;
pmax = CD + 0.5*LD;
xlim([pmin(1), pmax(1)]);
ylim([pmin(2), pmax(2)]);
hold off
if plota.salva_eps
    saveas(gcf,sprintf('%s/celulas-%s.eps',pasta,nome));
end