隐函数画图with R

隐函数画图 with R

x<-y<-seq(-10,20,0.1)
f<-function(x,y){sin(x*sin(y))-cos(y*cos(x))}
z<-outer(x,y,f)
contour(x,y,z)

第二个办法

implicitplot<-function(f,xrange=seq(-10,20,length=1000),yrange=seq(-10,20,length=1000)){
z<-outer(xrange,yrange,f)
contour(xrange,yrange,z,levels=0,labels='',labcex=.0001)
}
f<-function(x,y){sin(x*sin(y))-cos(y*cos(x))}
#f<-function(x,y) (x^2+y^2-1)^3-x^2*y^2 -(x^2*y^3)
implicitplot(f)