坐标转换

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

corn <- rbind(c(1, 0, 0), c(0, 1, 0), c(0, 0, 1), c(1, 0, 0))
  reg <- 2/sqrt(6) * (3 * corn - 1) %*% cbind(c(0,  - sqrt(3), sqrt(3)), c(2, -1, -1))
  plot(0, 0, type = "n", xlim = c(-7, 7), ylim = c(-4, 6), axes=F, xlab="", ylab="")
  text(reg[1, 1] - 0.4, reg[1, 2] + 0.4, name[3], cex = 1.4)
  text(reg[2, 1] - 0.4, reg[2, 2] - 0.4, name[1], cex = 1.4)
  text(reg[3,1] + 0.4, reg[3,2] - 0.4,name[2],cex=1.4)
  lines(reg[, 1], reg[, 2], lty = 1)
网上看到这段代码，不知道reg那行代码是什么意思？求大神赐教！！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：cor 网上

reg就是用corn来计算的一个新的变量啊。具体的原因为啥这样算，就只能去看原始出处了。