%Funkcija pozitivnenule vraca koeficijente polinoma cije su nule pozitivni
%brojevi iz skrpte nule.m
function p=pozitivnenule()
nule;
Y=[];
n=length(X);
for i=1:n
    if X(i)>=0
        Y=[Y X(i)];
    end
end
p=poly(Y);