グラフの次数

MIKUでグラフの次数についてのcodeを考えた。

梶本君や中根さんのcodeは明日考えるとして、僕が作ったのは泥臭いものになってしまった。

adj.gが隣接行列で、adj.degが次数の行列。次数が絶対n以下であるのを利用

処理量的にどうなんだろう…？

adj.deg <- adj.g

for( l in 1:n){

for( i in 1:n){

for( j in 1:n){

for( k in 1:n){

a <- adj.deg[ i, j]

b <- adj.deg[ j, k ]

c <-a+b

d <-adj.deg[ i ,k ]

if(a !=0 ){

if (b !=0 ){

if( d==0 ){ adj.deg[ i, k] <- c }

else{adj.deg[ i, k] <- min( c, d )}

}

}

}

}

}

}

diag(adj.deg) <- 0

にしても、夜中にwetのラボでこのcode直してたら中尾教授が入ってきてびっくりした〜

12時すぎてるのに…