作者Frobenius (▽.(▽×▽φ)=0)
看板Mathematica
標題Re: [請益] 矩陣
時間Fri Apr 6 01:03:43 2012
※ 引述《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)
→ chungyuandye:{{#}} & /@ Flatten[A, {{1, 2}, {3, 4}}] 04/06 06:47
推 kid50927:感謝感謝<(_ _)> 04/06 09:15