这是用 diag() upper.tri() lower.tri() 的应用。
重点是看出 y 的右上部分和左下部分和 x.mat 的有相似性。
你可以观察一下最后三列 code 的结果是什么就可以了解了。
你可以再改写成一个 function，
其中只有 x 和 k 是 input，而 y 最终是 output。
k <- 100
x <- c(3,6,5,8,7)
x.mat <- matrix(rep(x, yrl - 1), yrl-1, byrow=T)
yrl <- length(x)+1
y <- diag(k, yrl, yrl)
y[upper.tri(y)] <- x.mat[upper.tri(x.mat) | diag(yrl-1)]
y[lower.tri(y)] <- x.mat[lower.tri(x.mat) | diag(yrl-1)]
※ 引述《yaohwei (笨笨的)》之铭言：
: 各位高手你们好，小弟有个问题请教大家，在此先感谢各位帮助
: [软件熟悉度]:
: 入门(写过其他程式，只是对语法不熟悉)
: [问题叙述]:
: 我有n个数(先假设n=5)，例如:3,6,5,8,7
: 另外有个数字，例如:2
: 小弟想列出2插入所有缝隙的所有可能矩阵
: 即
: 2,3,6,5,8,7
: 3,2,6,5,8,7
: 2,6,2,5,8,7
: 3,6,5,2,8,7
: 3,6,5,8,2,7
: 3,6,5,8,7,2
: 请问各位高手该如何写，小弟再次感谢各位