# 37-ft

Postscript("37-ft.ps",5,2.5)
latox=c(-3,3); latoy=c(-1,2)
par(bg="yellow")
Grafica(latox,latoy,cornice=T)
f=c(0,0,0,0,8-4i,-4+4i,-2-1i,1)
rad=polyroot(f)
for (z in rad)
  points(z,pch=21,bg="red")
I=seq(0,1,by=0.01)
for (t in I)
{ft=f+t*c(-t,0.5,2,1,1i,1,-1i,0)
rad=polyroot(ft)
for (z in rad)
  points(z,pch=20,cex=0.1)}
dev.off()