作者chien533 (谣指部总司令)
看板Statistics
标题Re: [问题]有关R程式
时间Wed Oct 8 04:20:51 2008
※ 引述《qwer098 (小六)》之铭言：
: 想请问一下...
: 如果说现在有一个3*3矩阵
: 假设是1 2 3
: 4 5 6
: 7 8 9
: 想要计算(1,1)*{(2,2)+(2,3)+(3,2)+(3,3)}+(1,2)*{(2,3)+(3,3)}+(2,1)*{(3,2)+(3,3)}+(2,2)*(3,3)
: 也就是 1 * * * 2 * * * * * * *
: * 5 6 * * 6 4 * * * 5 *
: * 8 9 * * 9 * 8 9 * * 9
: 1*(5+6+8+9) +2*(6+9) +4*(8+9) +5*9
: 如果想用R程式来写...该如何表示
: 请知道的大大说明一下
: 谢谢^^
随便写的～答案应该是171没错吧～
a <- rbind(c(1,2,3),c(4,5,6),c(7,8,9))
ans <- 0
for(i in 1:2){
for(j in 1:2){
ans <- ans + a[i,j]*sum(a[-c(1:i),-c(1:j)])
}
}
a 换成任意 3X3 的矩阵应该都适用
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 152.2.149.157