r - 陰関数のプロット

Question

Rで次の暗黙の式をプロットしようとしています:

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

これは楕円でなければなりません。x 値をランダムにサンプリングし、それらに基づいてグラフを生成したいと思います。

ここに関連するスレッドがありますが、そこにある解決策は 3D ケースに固有のようです。この質問は、私が予想していたよりも Google に対してより抵抗力があったため、R 言語は暗黙の数式を別の方法で呼び出している可能性があります。

前もって感謝します！

Answer 1

あなたが理解できないかもしれない2つのこと。その手法で陰関数をプロットする場合、陰関数が次のようになるように、すべての項を関数の RHS に移動する必要があります。

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

次に、輪郭の値 0 を使用するのが理にかなっています。

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' は正しかった。