在R中绘制双曲线方程

Question

我无法在R中绘制双曲线。它适用于

f <- function(x,y) x^2 - 3*y^2 + 2*x*y - 20

但我所拥有的等式并不像这样。你知道如何在R中绘制下面的双曲线吗？