Re: [請益] 矩陣

看板Mathematica作者Frobenius (▽．(▽×▽φ)=0)時間12年前 (2012/04/06 01:03)推噓1(1推 0噓 1→)

留言2則, 2人參與討論串2/2 (看更多)

※ 引述《kid50927 (fish)》之銘言： : 我寫了一個函數 H[aa_,bb_,cc_,dd_]=一串東西 : 然後寫 Outer[H,{1,-1},{1,-1},{1,-1},{1,-1}]//MatrixForm : 他會跑出如下 : ┌ ╭ ╮╭ ╮ ┐ : │ │a b││e f│ │ : │ │c d││g h│ │ : │ ╰ ╯╰ ╯ │ : │ ╭ ╮╭ ╮ │ : │ │i j││m n│ │ : │ │k l││o p│ │ : │ ╰ ╯╰ ╯ │ : └ ┘ : 想問要怎麼把他變成 : ┌ ╭ ╮ ┐ : │ │a b c d│ │ : │ ╰ ╯ │ : │ ╭ ╮ │ : │ │e f g h│ │ : │ ╰ ╯ │ : │ ╭ ╮ │ : │ │i j k l│ │ : │ ╰ ╯ │ : │ ╭ ╮ │ : │ │m n o p│ │ : │ ╰ ╯ │ : └ ┘ : 是不是有個簡單的指令呢? : 查好久查不到也想不到該怎麼寫OTZ : 還有要怎麼合併子矩陣呢? ┌ ╭ ╮╭ ╮ ┐ │ │a b││e f│ │ │ │c d││g h│ │ │ ╰ ╯╰ ╯ │ A = │ ╭ ╮╭ ╮ │; │ │i j││m n│ │ │ │k l││o p│ │ │ ╰ ╯╰ ╯ │ └ ┘ Partition[Partition[A // Flatten, 4, 4], {1, 4}] // MatrixForm ┌ ╭ ╮ ┐ │ │a b c d│ │ │ ╰ ╯ │ │ ╭ ╮ │ │ │e f g h│ │ = │ ╰ ╯ │ │ ╭ ╮ │ │ │i j k l│ │ │ ╰ ╯ │ │ ╭ ╮ │ │ │m n o p│ │ │ ╰ ╯ │ └ ┘ -- The Key Word of Help : Partition -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 218.166.101.160 ※ 編輯: Frobenius 來自: 218.166.101.160 (04/06 01:06)