# 36-polyroot3

Postscript("36-polyroot3.ps",5,3)
latox=c(-2,3); 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(4,-4,5,-4,1)
rad=polyroot(f)
for (z in rad)
  points(z,pch=21,bg="red")
g=c(4,-5,5,-4,1)
rad=polyroot(g)
for (z in rad)
  points(z,pch=21,bg="green")
dev.off()