x<-seq(-2,3,0.05)
> y<-seq(-1,7,0.05)
> f<-function(x,y)  x^4-2*x^2*y+x^2-2*x*y+2*y^2+4.5*x-4*y+4
> z<-outer(x,y,f) #必须做外积运算才能绘出三维图形
> contour(x,y,z,levels=c(0,1,2,3,4,5,10,15,20,30,40,50,60,80,100),col=”blue”) #二维等值线
> persp(x,y,z,theta=120,phi=0,expand=0.7,col="lightblue") #三维网格曲面


最后只能显示三维网格曲面，二维等值线并不显示 ，为什么？