function vysecovy_sloupcovy_graf
p=[6,4,8,7];
while(1)
v=menu('Vyber','kolacovy graf','sloupcovy graf','konec');
switch(v)
    case 1
        subplot(2,3,1)
        pie(p)
        legend('salam','sunka','parky','syr')
        subplot(2,3,2)
        pie(p,[0,1,1,0])
        subplot(2,3,3)
        pie(p,[0,0,0,1],{'salam','sunka','parky','syr'})
        subplot(2,3,4)
        pie3(p)
        subplot(2,3,5)
        pie3(p,[1,1,1,1])
        subplot(2,3,6)
        pie3(p,{'salam','sunka','parky','syr'})
    case 2
        subplot(2,2,1)
        bar(p)
        subplot(2,2,2)
        bar(p,'g')
        subplot(2,2,3)
        bar3(p)
        subplot(2,2,4)
        barh(p)
    case 3
        msgbox('Konec')
        break;
    otherwise
        return
end % konec switch   
end %konec while
close all % zavre graficka okna
end

