# CycleGraph.R
# Lasse Leskelä 2010-10-14
#
# Syöte:
# n : kokonaisluku
#
# Tulos
# L : n x n matriisi
#

CycleGraph <- function (n) {

 L <- matrix(0,n,n);

 for (i in 1:n) {
   for (j in 1:n) {
     z <- (j-i) %% n
     d <- min(z,n-z)
     if ( d == 1 ) {
       L[i,j] <- 1
     }
   }
 }
 L
}