R中如何画方程的图

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

形如5x^2-4xy+5y^2=1,R中如何画这样的图，谢谢！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：如何

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)

1. my.fun <- function(x,y){5*x^2 - 4*x*y + 5*y^2}
   
2. x<-seq(-sqrt(5/21), sqrt(5/21), length.out = 101)
   
3. y<-seq(-sqrt(5/21), sqrt(5/21), length.out = 101)
   
4. z<-outer(x,y,my.fun)
   
5. contour(x, y, z, levels = 1, drawlabels = 0, xlab = "x", ylab = "y")

复制代码

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

RFenxi 发表于 2014-6-6 06:05
y1

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

zhangyangsmith 发表于 2014-6-6 16:23
see also: https://bbs.pinggu.org/forum.php?mod=viewthread&tid=2915812&from^^uid=563172

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

解一元二次方程啊

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

学习了