Ziggurat 矩阵不适用于 R 中的“for”和“repeat”循环 - 为什么？

Question

我是 R 的初学者。我不明白为什么“for”循环在我的矩阵中不起作用。我需要构建 ziggurat，在其中我在函数中输入“n”，该函数必须返回图片中的矩阵。 screenshot 此代码适用于 n 等于 5 或​​小于 5。但是当它大于 5 时，“for”循环不会遍历所有 (1:hunt) 数字。例如，见下图 screenshot 2 我尝试使用“重复”循环，但它也不起作用。我的代码哪里出错了？

build_ziggurat <- function(n){
h<-1  
hunt <- n-4
if(n==1){
 m<- matrix(1, nrow = 1, ncol = 1)
  } else {
  if(n<5){
  d <- matrix(h, ncol = 2*n-h, nrow=2*n-h)
  d[2:(n+n-2),2:(n+n-2)]<-h+1;d
  d[(n-h):(n+h), (n-h):(n+h)]<-n-h;d
  d[n,n]<-n;d
  print(d)
} else {

  for(i in hunt:1){
    h<-1
      t <- matrix(h, ncol = 2*n-h, nrow=2*n-h)
      t[2:(n+n-2),2:(n+n-2)]<-h+1
      t[(n-h-i):(n+h+i), (n-h-i):(n+h+i)]<-(n-h-i)
      t[(n-h):(n+h),(n-h):(n+h)]<-n-h
      t[n,n]<-n
      return(t)

  }      

}
}
if(n==1) m
}      

Answer 1

您是否正在寻找类似的东西？

zigguratCreator <- function(n){
  out <- mat.or.vec(nr = (n - 1)*2 + 1, nc = (n - 1)*2 + 1) + 1
  for(i in seq(n - 1)){
    out[seq(i + 1, nrow(out) - i), seq(i + 1, ncol(out) - i)] <- i + 1
  }

  return(out)
}

zigguratCreator(n = 6)

Answer 2

zigguratCreator <- function(n){
  size <- 2*n-1
  out <- matrix(nr=size, nc=size)
  for(i in 1:size){
    for (j in 1:size){
      out[i,j] <-min(n-abs(i-n),n-abs(j-n))
    }
  }
  return(out)
}