P = {[0:pi/10:6*pi],@sin,'b';...
        [0:pi/10:6*pi],@cos,'m';...
        [.1:.1:3],@exp,'g';...
        };
    close all
    figure
    
    popisky=cell(size(P,1),1);  %prazdne pole bunek pro popisek grafu
    
    for i=1:size(P,1)   %pro kazdy radek P
            x=P{i,1};   %nezavisle promenna z pole bunek
            y=P{i,2}(x);    %hodnoty odpovidajici funkce z pole bunek
            if i==2
                hold on     %vsechny grafy do jednoho okna
            end
    plot(x,y,P{i,3})    %kresleni prislusnou barvou z pole bunek  
    popisky{i} = func2str(P{i,2});  %pridame popisek
    end
    legend(popisky)