function grafy_polynomu(varargin)
%grafy_polynomu - kresli grafy vsech zadanych polynomu
%x..vektor hodnot neyavisle promenne, ve ktere se budou vycislovat
%jednotlive polynomy
%p1,p2, atd..vektory koeficientu danych polynomu
%priklad volani: grafy_polynomu(-1:.01:3,[1 -1 2],[1 -2 1 0])

if nargin<2
    error('Zadejte alespon DVA vstupy!')
end
x=varargin{1};
x=x(:); %pro jistotu, kdyby 'x' nebyl vektor

M=zeros(length(x),nargin-1);

for i=2:nargin
    p=varargin{i};
    p=p(:); %pro jistotu
    y=polyval(p,x);  %hodnoty polynomu
    M(:,i-1)=y(:); %pridame sloupec do matice    
end

plot(x,M)
title('grafy polynomu');
xlabel('x');ylabel('y');
%jeste legendu
cisla=1:nargin-1;   %cisla polynomu
s=' .polynom';  %text, ktery pridame za kazde cislo
T = ones(nargin-1,1)*s; %mame matici ASCII kodu retezce 's', stejne radky
T = strcat(num2str(cisla'), T); %spojime cisla a matici ASCII kodu
legend(T)