y1 <- function(x) {
        (2*x+sqrt(5-21*x^2))/5
}
y2 <- function(x) {
        (2*x-sqrt(5-21*x^2))/5
}

low <- -sqrt(5/21)
high <- sqrt(5/21)
curve(y1, low, high, ylim=c(low, high))
curve(y2, low, high, add=T)

see also: https://bbs.pinggu.org/forum.php? ... &from^^uid=563172

能否解释一下如何得到 (2*x+sqrt(5-21*x^2))/5  和 (2*x-sqrt(5-21*x^2))/5，谢谢！

-sqrt(5/21), sqrt(5/21) 如何得到的？谢谢！

解一元二次方程啊

问题其实也可以写成一个椭圆方程，然后用画椭圆的函数画就可以了