Curvas de trazado dadas por ecuaciones en R

Question

En R, ¿hay alguna manera de trazar curvas 2D dadas por ecuaciones? Por ejemplo, ¿cómo puedo trazar la hipérbola dada por la ecuación x^2 - 3 * y^2 + 2 * x * y - 20 = 0?

Answer 1

Puede usar contour para trazar las dos ramas de su hipérbola.

f <- function(x,y) x^2 - 3*y^2 + 2*x*y - 20 
x <- y <- seq(-10,10,length=100) 
z <- outer(x,y,f) 
contour(
    x=x, y=x, z=z, 
    levels=0, las=1, drawlabels=FALSE, lwd=3 
) 

Answer 2

Sólo para el registro - una versión ggplot

library(ggplot2) 
library(dplyr) 
f <- function(x,y) x^2 - 3*y^2 + 2*x*y - 20 
seq(-10,+10,length=100) %>% 
    expand.grid(x=.,y=.) %>% 
    mutate(z=f(x,y)) %>% 
    ggplot + 
    aes(x=x,y=y,z=z) + 
    stat_contour(breaks=0) 

Answer 3

tal vez la solución se puede transformando la ecuación en una curva de fórmula y el uso() para realizar Una parcela.

curve(sqrt(4/9*x^2-20/3) + x/3,-20,20)