R语言实现(a可以用csv实现,可行)
a<-c(341,45,36,66,108,116,45,242,92,7,0,11,36,92,240,15,33,5,66,7,15,219,22,10,108,0,33,22,199,0,116,11,5,10,0,163)
m<-matrix(a,nrow=6,ncol=6,byrow=FALSE)
p<-matrix(1:36,nrow=6,ncol=6,byrow=FALSE)
for(i in 1:6) {
for(j in 1:6){
p[i,j]=m[i,j]/(m[i,i]*m[j,j])^(1/2)
}
}
p