隱函數畫圖 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

轉載于:https://www.cnblogs.com/xiaogang999/p/5897166.html

《新程序員》：云原生和全面數字化實踐50位技術專家共同創作，文字、視頻、音頻交互閱讀

總結

以上是生活随笔為你收集整理的隐函数画图with R的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。