[問題] 矩陣取代元素問題

[ntust661 (TOEFL_5!)]

f1 = Table[,{i,1,10,1},{i,1,10,1}] ;


Do[

   Do[


   Q = Replace[f1,i,{i,j}]


  ,{i,1,10,1}

]

  ,{j,1,10,1}


]


可是Q跑出來都顯示 Null...


為什麼會這樣@@?...


--

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 111.248.161.7
→ ntust661:可是打在Do迴圈外面就可以作取代動作
→ chtm:你的f1的index怎麼兩個都是i??
→ ntust661:可是跑出來會產生一個方陣@@
→ ntust661:我覺得那個應該只是個dummy variable
→ ntust661:Mathematica 的matrix 裡面的元素要迴圈取代真的好麻煩QQ
→ chtm:Replace用法看起來怪怪的
→ ntust661:怎說@@，但是獨立開的的就不會這樣耶...
→ chtm:一來你的f1應該是個10x10的Null矩陣
→ chtm:二來你並沒有說要把這個Null取代成什麼
→ ntust661:有阿，我說f1,在(i,j)位置的元素用i取代值
→ chtm:看help的用法  好像要有個箭頭?!
→ chtm:另外一個是迴圈中每次都是取代f1  可是取代後的結果沒有存到
→ chtm:給下一次使用所以看起來你最後的Q矩陣應該是只有{10,10}的位
→ chtm:置是10  其他還是Null
→ ntust661:感謝chtm大大的指點!!給我一個當頭棒喝!!
→ chungyuandye:f1 = Table[{i, j}, {i, 10}, {j, 10}]
→ chungyuandye:f1[[#]][[All, 1]] & /@ Range[10]
→ chungyuandye:Map[#[[1]] &, f1, {2}]
→ chungyuandye:f1 /. {i_, j_} :> i
→ chungyuandye:Table[i, {i, 10}, {j, 10}]
→ chungyuandye:既然要學Mathematica，盡量少用Do While For這些函數
→ ntust661:是喔QQ...