Question

因此,这里的瘦子:

想象一个魔方; 它为 3x3x3 。我碰巧有一个数组, 是一个正立方的魔方, 只有它为 4x4xn。 n 开始为 1
当数组中每个 4x4 矩阵中的某个条件是真实的时, 矩阵会自我复制; 也就是 n 增长 1 (数组, 或 rebik s 立方体会长/ 变成幼崽 ) 。例如, 对于数组中每个 4x4 矩阵, 如果 [2, 4] & gt; [2, 1], 那么矩阵会复制数组中另一个版本。
当数组中每个 4x4 矩阵中的相同条件为假时, 矩阵本身就“ 底部” 或将自己抹去。数组, 或rebik s 立方体会变短。比方说, 对于数组中的每个 4x4 矩阵, 如果 [2, 4] & lt; [2, 1), 则矩阵将自己从数组中抹去。
于是我试图将这个构建成一个阵列, 显然你不能从一个阵列随意添加和下降矩阵。
我被告知你必须建一个高压器(从我的概念模型到维基百科说,这看起来像是第二顺序的压力。 )我不是物理学家,绝对不是数学纯净主义者。我是一个基本的应用数学家(OSA ), 但我没有任何程度的数学家,只是几年的“分析”经验。
希望各位能理解, 如何在R区建立我认为我所写的那种R区, 很难找到可理解的/概念性信息。

非常感谢你们能提供的一切帮助。

我对此非常感谢。

下面是我尝试过的一些东西:

cells<-c(0,.4,0,0,.25,.6,.25,.5,4,12,4,10,20,0,0,0)
Mu<-matrix(cells, 4,4, byrow=TRUE)
Ma<-list(Mu)
for(i in Ma){
    if(i[2,4] > i[2,1]){
       j <-length(Ma) + 1
       c[Ma, j<-Mu]
    }else if(i[2,4] < i[2,1]){
        Ma[[i]] <- NULL
        }
    }
}

这不管用

Answer 1

Since you need to be able to add or remove 4*4 matrices from your array, it may be easier to use a list of 4*4 matrices, instead of an array.

# Initial data
d <- replicate(3, matrix(sample(1:16),4,4), simplify=FALSE)
# Remove an element
remove <- function(d, i) {
  d[[i]] <- NULL
  d
}
# Duplicate an element
duplicate <- function(d, i) {
  d <- append(d, list(d[[i]]))
  d
}
# Example
d <- remove(d, 1)
d <- duplicate(d, 2)
d <- remove(d, 1)
d

If performance is an issue (the list is copied again and again), you may prefer to use an environment instead.

# Sample data
d <- replicate(3, matrix(sample(1:16),4,4), simplify=FALSE)
names(d) <- as.character(seq_along(d))
e <- as.environment(d)
# Remove an element
remove <- function(e, i) {
  rm(list=as.character(i), envir=e)
  e
}
# Duplicate an element
duplicate <- function(e, i) {
  stopifnot( length(ls(e)) > 0 )
  j <- max( as.numeric(ls(e)) ) + 1
  assign( as.character(j), get( as.character(i), envir=e ), envir=e )
  e
}
# Example (the elements are named, and their names do not change)
remove(e, 1)
duplicate(e, 3)
remove(e, 2)
as.list(e)

加上你们重复和搬运的条件,这便成为:

# Sample data
d <- replicate(3, matrix(sample(1:16),4,4), simplify=FALSE)
names(d) <- as.character(seq_along(d))
e <- as.environment(d)
# Main loop
for(i in ls(e)) {      # i is the name of the matrix
  m <- get(i, envir=e) # The matrix itself
  if(m[2,4] > m[2,1]) {
    cat("Duplicating", i, "
")
    duplicate(e, i)
  } else {
    cat("Removing", i, "
")
    remove(e, i)
  }
}
as.list(e)

友情链接