隐函数画图with R

隐函数画图 with R

这个函数 sin(xsiny)-cos(ycosx)=0 图是这个样子

怎么用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)

用R画图结果展示

第二个办法

    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)

转自
http://blog.csdn.net/liu7788414/article/details/44488215