Gr.postscript("28505-cissoide.ps",4,4)
lato=c(-2,2); par(bg="yellow")
Gr(lato,lato,cornice=T)
t=seq(-4,4,by=0.01)
u=1+t^2
lines(t^2/u,t^3/u)
dev.off()