function p = subsasgn(p, S, h)
% @polynom/subsasgn - nahrada koeficientu u nejake mocniny
% priklad: p{1}=4 ... abs. clen bude 4
switch S.type
    case '{}'
        d = length(p.koeficienty); % delka vektoru koeficientu
        ii = S.subs{1}; % jaky koef. mame zmenit?
        if ~isscalar(ii) || ii~=fix(ii) || ii<0 || ii>=d  % 'ii' neni cele cislo nebo nelezi v "rozsahu polynomu"
            error(['Index smi byt cele cislo od nuly do ' num2str(d-1)])
        end
        p.koeficienty(d-ii) = h(1);
    otherwise
        error('Polynom indexujete pomoci {}.')
end