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

※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 122.117.37.172 ※ 文章網址: http://webptt.com/m.aspx?n=bbs/R_Language/M.1418277663.A.C08.html ※ 編輯: andrew43 (122.117.37.172), 12/11/2014 14:03:10 ※ 編輯: andrew43 (122.117.37.172), 12/11/2014 14:08:04