# 36-polyroot2

Postscript("36-polyroot2.ps",5,3)
latox=c(-2.5,2.5); latoy=c(-1.5,1.5)
par(bg="yellow")
Grafica(latox,latoy,cornice=T)
abline(h=0,v=0);
t=seq(0,2*pi,by=0.01)
polygon(Cerchio(t,1))
f=c(1,0,1,1)
rad=polyroot(f)
for (z in rad)
  points(z,pch=21,bg="red")
g=c(1,1,1,1)
rad=polyroot(g)
for (z in rad)
  points(z,pch=21,bg="green")
dev.off()