function sloupcovy_graf
p=[100,50,45,16];
subplot(2,3,1)
bar(p,'g')

obchody=[100,50,45,16;80,60,50,20;90,40,50,15];
subplot(2,3,2)
bar(obchody,'stacked')

subplot(2,3,3)
bar(obchody,'grouped')

subplot(2,3,5)
bar3(obchody,'stacked')

subplot(2,3,6)
bar3(obchody,'grouped')

subplot(2,3,4)
bar3(obchody,'detashed')