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()