function s = stupen(p)
% polynom/stupen - stupen polynomu
% s = stupen(p)

s = length(p.koeficienty)-1; % 'p' musi byt polynom, jinak se vola jina fce
if s == -1
    s = NaN; % prazdny polynom nema stupen
end
    