Re: [問題] 數字插入問題
這是用 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://www.ptt.cc/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
推
12/12 14:53, , 1F
12/12 14:53, 1F
→
12/14 22:02, , 2F
12/14 22:02, 2F
討論串 (同標題文章)
R_Language 近期熱門文章
PTT數位生活區 即時熱門文章
