绘制隐函数

Question

我试图在R中绘制以下隐式公式:

1 = x ^ 2 + 4*(y ^ 2)+ x*y

这应该是一个椭圆.我想随机抽样x值,然后根据这些值生成图表.

这是一个相关的线程,但那里的解决方案似乎特定于3D案例.这个问题对Googling的抵抗力是我所期望的,所以也许R语言会将隐式公式称为其他东西.

提前致谢!

Answer 1

你可能不理解的两件事.使用该技术绘制隐式函数时,需要将所有项移动到函数的RHS,以便隐式函数变为:

0 = -1+ x^2 + 4*(y^2) + x*y

然后使用零的轮廓值将有意义:

x<-seq(-1.1,1.1,length=1000)
y<-seq(-1,1,length=1000)
z<-outer(x,y,function(x,y) 4*y^2+x^2+x*y -1 )
contour(x,y,z,levels=0)

我在第一个版本上签了一个错误.@mnels'是对的.