隐函数画图with R

隐函数画图 with R

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

怎么用R画出来呢？下面是代码

x<-y<-seq(-10,20,0.1)
f<-function(x,y){sin(xsin(y))-cos(ycos(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(xsin(y))-cos(ycos(x))}
#f<-function(x,y) (x^2+y2-1)^3-x2*y^2 -(x^2*y3)
implicitplot(f)

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