看板 Mathematica 關於我們 聯絡資訊
※ 引述《qazwsx150 (魂牽孟盈)》之銘言: : 大家好,想請問一下 : 如果我有三組數值 : {x1,x2,x3,...,xn} : {y1,y2,y3,...,yn} : {z1,z2,z3,...,zn} : 我希望把他們整理成{{x1,y1,z1},{x2,y2,z2},{x3,y3,z3},...,{xn,yn,zn}} : 想問問我可以怎麼做,謝謝大家 a=Table[x[n],{n,1,4}] b=Table[y[n],{n,1,4}] c=Table[z[n],{n,1,4}] {a,b,c}//Transpose (下列為執行結果) {{x[1],y[1],z[1]},{x[2],y[2],z[2]},{x[3],y[3],z[3]},{x[4],y[4],z[4]}} Table[{a[[n]],b[[n]],c[[n]]},{n,1,4}] (下列為執行結果) {{x[1],y[1],z[1]},{x[2],y[2],z[2]},{x[3],y[3],z[3]},{x[4],y[4],z[4]}} Table[{a[[n]],b[[n]],c[[n]]},{n,1,3}] (下列為執行結果) {{x[1],y[1],z[1]},{x[2],y[2],z[2]},{x[3],y[3],z[3]}} Table[{a[[n]],b[[n]],c[[n]]},{n,2,3}] (下列為執行結果) {{x[2],y[2],z[2]},{x[3],y[3],z[3]}} Table[({a,b,c}//Transpose)[[n]],{n,2,3}] (下列為執行結果) {{x[2],y[2],z[2]},{x[3],y[3],z[3]}} -- 所謂理論,就是我們知道為什麼,但是什麼都行不通; 所謂實務,就是我們不知道為什麼,但是都行得通; 本實驗室理論與實務已經結合為一:什麼事都行不通,而且沒有人知道為什麼 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.163.106.179 ※ 文章網址: https://www.ptt.cc/bbs/Mathematica/M.1458580814.A.7D6.html ※ 編輯: Frobenius (1.163.106.179), 03/22/2016 01:25:21
LPH66: 補一個 In := Table[{a, b, c}[[All, n]], {n, 2, 3}] 03/22 03:55
LPH66: Out = {{x[2], y[2], z[2]}, {x[3], y[3], z[3]}} 03/22 03:55
LPH66: 在 [[]] (Part) 裡用 All 即是把那一維全部切片下來 03/22 03:56
qazwsx150: 謝謝你喔,我等等去試試看 03/22 06:27
AmibaGelos: 考慮到其他語言的zip/pack都有支援將不同長度的list合 03/22 08:55
AmibaGelos: 並在一起的功能,可以加上PadRight 03/22 08:56