% skrypt31
disp('skrypt oblicza pierwiastki wielomianu piatego stopnia');
pkt=zeros(1,6);
pkt(1,1)=input('podaj wspolczynnik przy potedze piatej: ');
pkt(1,2)=input('podaj wspolczynnik przy potedze czwartej: ');
pkt(1,3)=input('podaj wspolczynnik przy potedze trzeciej: ');
pkt(1,4)=input('podaj wspolczynnik przy potedze drugiej: ');
pkt(1,5)=input('podaj wspolczynnik przy potedze pierwszej: ');
pkt(1,6)=input('podaj wyraz wolny: ');
zera=roots(pkt);
cla;
disp(zera);
hold on;
plot(min(real(zera)):0.1:max(real(zera)),polyval(pkt,min(real(zera))-5:0.1:max(real(zera))));
for i=1:5,
    if imag(zera(i))==0
        plot(zera(i),0,'o.k');
    end
end
hold off;