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

