오프 대각 행렬의 반복없이 대각선 요소 (들) - 대각선 하차하고, 대각선 대칭 검사

Question

가정하자 내가 가진이 행렬 내가

1. 꺼짐을 확인 할

   8 3 1 1 2 2 1 1 1 1 1 1 2 2 1 1 3 
   3 8 3 1 1 2 2 1 1 1 1 1 1 2 2 1 1 
   1 3 8 3 1 1 2 2 1 1 1 1 1 1 2 2 1 
   1 1 3 8 3 1 1 2 2 1 1 1 1 1 1 2 2 
   2 1 1 3 8 3 1 1 2 2 1 1 1 1 1 1 2 
   2 2 1 1 3 8 3 1 1 2 2 1 1 1 1 1 1 
   1 2 2 1 1 3 8 3 1 1 2 2 1 1 1 1 1 
   1 1 2 2 1 1 3 8 3 1 1 2 2 1 1 1 1 
   1 1 1 2 2 1 1 3 8 3 1 1 2 2 1 1 1 
   1 1 1 1 2 2 1 1 3 8 3 1 1 2 2 1 1 
   1 1 1 1 1 2 2 1 1 3 8 3 1 1 2 2 1 
   1 1 1 1 1 1 2 2 1 1 3 8 3 1 1 2 2 
   2 1 1 1 1 1 1 2 2 1 1 3 8 3 1 1 2 
   2 2 1 1 1 1 1 1 2 2 1 1 3 8 3 1 1 
   1 2 2 1 1 1 1 1 1 2 2 1 1 3 8 3 1 
   1 1 2 2 1 1 1 1 1 1 2 2 1 1 3 8 3 
   3 1 1 2 2 1 1 1 1 1 1 2 2 1 1 3 8 
   

   대각선은 대칭입니까? (위 행렬에서 대칭입니다.)

2. 요소는 대각선이 아닌 (반복되지 않음)? - 위의 행렬에서 1,2,3

3. 대각선 요소는 대칭입니까? 그렇다면 요소를 인쇄 하시겠습니까? (상기 매트릭스처럼 8)

Answer 1

# 1 
all(mat == t(mat)) 
[1] TRUE 

# 2 
unique(mat[upper.tri(mat) | lower.tri(mat)]) 
[1] 3 1 2 

# 3 
if(length(unique(diag(mat))) == 1) print(diag(mat)[1]) 
[1] 8 

Answer 2

mat <- as.matrix(read.table('abbas.txt')) 
isSymmetric(unname(mat)) 

는 rownames '및'COLNAMES '의 경우는 매트릭스 만 대칭 유의' '과 동일하다.'

unique(mat[lower.tri(mat)]) 

all(diag(mat) == rev(diag(mat))) 
# I assume you mean the diagonal is symmetric when its reverse is the same with itself.