绘制隐函数

Question

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

1 = x ^ 2 + 4 *（y ^ 2）+ x * y

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

Here's一个相关的主题，但那里的解决方案似乎特定于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'是对的。