Re: [問題] 矩陣元的取代
※ 引述《a29788685 (嘉峰)》之銘言：
: 請問(1)：
: 例如目前有一個矩陣{{a,b,c},{d,e,f}....}
: 我想要判定第一個矩陣元，即上矩陣中的a d ..等,
: 就像是If[a<1,c,a]，然後應用在每條列矩陣一樣,
: =>{{If[a<1,c,a],b,c},{If[d<1,f,d],e,f}.....},
: 不過由於矩陣太龐大，沒辦法一條一條打，不知道有沒有比較方便的方法？
假設你的矩陣叫A，則
{If[A[[#, 1]] < 1, A[[#, 3]], A[[#, 1]]], A[[#, 2]], A[[#, 3]]} & /@
Range[Dimensions[A][[1]]]
: 請問(2):
: 我想要提取矩陣元，然後放到新的矩陣之中，
: 例如：一樣的矩陣A={{a,b,c},{d,e,f}....}
: 我想要取前兩個矩陣元，並將A改寫成A={{a,b},{d,e}....}
: 我想到的方法是:
: B={{A[[1,1]],A[[1,2]]},{A[[2,1]],A[[2,2]]}...}這樣，
: 但是一樣的，我矩陣共有三千多個矩陣元，沒辦法一個一個打，
: 想請教一下有沒有比較方便的方法？
: 非常感謝！
B={A[[#,1]],A[[#,2]]}&/@Range[Dimensions[A][[1]]]
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 24.163.103.112
→
07/18 09:56, , 1F
07/18 09:56, 1F
→
07/18 09:57, , 2F
07/18 09:57, 2F
→
07/18 09:57, , 3F
07/18 09:57, 3F
→
07/18 11:42, , 4F
07/18 11:42, 4F
推
07/18 20:00, , 5F
07/18 20:00, 5F
討論串 (同標題文章)
Mathematica 近期熱門文章
PTT數位生活區 即時熱門文章
