# 33-x3mx2origine

Postscript("33-x3mx2origine.ps",1.6,1.6)
lato=c(-2,2); par(bg="#ccff99")
Grafica(lato,lato,cornice=T)
t=seq(-2,2,by=0.01)
f = function (x,y) y*y-x*x*x+x*x
valori=outer(t,t,f)
Livelli(t,t,valori=valori,scritte=0.5,
  livelli=setdiff(seq(-2,2,by=0.5),0))
Livelli(t,t,valori=valori,spessore=2,
  colore="red",scritte=0)
points(0,0,pch=20,cex=1,col="red")
dev.off()