r - 绘制隐函数

Question

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

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

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

这是一个相关的线程，但那里的解决方案似乎特定于 3D 案例。这个问题对谷歌搜索的抵抗力比我预期的要高，所以也许 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' 是正确的。