function graf_kolacovy
f=fopen('cisla.txt','r');
x=fscanf(f,'%g'); % cteni ze souboru
fclose(f);
while(1)
v=menu('Vyber si:','vysecovy graf','sloupcovy graf','konec'); 
switch(v)
    case 1
        subplot(2,2,1)
        pie(x)
        legend('pivo','rum','whisky','dzus','voda')
        subplot(2,2,2)
        pie(x,{'pivo','rum','whisky','dzus','voda'})
        subplot(2,2,3)
        pie3(x,[0,0,0,1,1])
        subplot(2,2,4)
        pie3(x,[1,1,1,1,1],{'pivo','rum','whisky','dzus','voda'})
    case 2
        subplot(2,2,1)
        bar(x)
        subplot(2,2,2)
        barh(x,'g')
        subplot(2,2,3)
        bar3(x,'r')
        subplot(2,2,4)
        bar3h(x,'y')
    case 3
        msgbox('Konec')
        break;
end %konec switch
end %konec while
close all % zavreni graf. oken
end %konec funkce

