這是用 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
: 請問各位高手該如何寫，小弟再次感謝各位