R 绘制隐函数

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

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

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

一个相关的线程，但解决方案似乎是特定于3D的情况。这个问题对谷歌搜索的抵抗力比我想象的要大，所以也许R语言把隐式公式叫做别的东西

---

提前谢谢

有两件事你可能不明白。使用该技术绘制隐式函数时，需要将所有项移动到函数的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)

---

xYeah，但是他要求“随机抽样x”的请求呢？我不知道他是否想使用你的方法，但使用
XT说实话，我没有注意到问题的“随机”x部分。“求解y”需要得到二次曲线的两个“边”
sfmisc:：ellipsePoints
似乎无法为我提供即时（甚至延迟）解决方案。我需要回去计算半轴的长度、中心和角度，然后才能得到它的参数，即使这样，我也看不到用它来生成任意x值的解的方法。