function kolacovy_graf
f=fopen('cisla.txt','r');
napoje=fscanf(f,'%d');
fclose(f);
while(1)
    v=menu('Vyber','kolacovy graf','sloupcovy graf','konec');
    switch(v)
        case 1
            subplot(2,2,1)
            pie(napoje,[0,1,1,0,0])
            legend('voda','vodka','rum','pivo','vino')
            subplot(2,2,2)
            pie(napoje,{'voda','vodka','rum','pivo','vino'})
            subplot(2,2,3)
            pie3(napoje,[1,0,0,0,0])
            subplot(2,2,4)
            pie3(napoje,{'voda','vodka','rum','pivo','vino'})
        case 2
            subplot(2,2,1)
            bar(napoje,'g')
            subplot(2,2,2)
            bar3(napoje,'y')
            subplot(2,2,3)
            barh(napoje,'r')
            subplot(2,2,4)
            bar3h(napoje)
        case 3
            msgbox('Konec')
            break;
    end % konec switch
end % konec while
close all %zavre graf. okna
figure
P=[2,3,4; 8,1,3; 5,6,1];
subplot(2,2,1)
bar(P)
legend('voda','vodka','rum')
subplot(2,2,2)
bar3(P,'grouped')
subplot(2,2,3)
bar(P,'stacked')
subplot(2,2,4)
bar3(P,'stacked')
end

