Mathematicaで行列を分割→変形→結合させたい

質問

Mathematicaで行列を分割→変形→結合行と列の総和を求めたいのですが、簡単に算出するコマンドはないのでしょうか？

例えば、下の行列式の場合は、
┌　　　 ┐
| 1 2 3 |
|　　　　 |
| 4 5 6 |
|　　　　 |
| 7 8 9 |
|　　　　 |
| 10 11 12 |
└ 　　　 ┘
を、
┌　　　 ┐
| 1 2 3 |
|　　　　 |
| 4 5 6 |
└ 　　　 ┘
┌　　　 ┐
| 7 8 9 |
|　　　　 |
| 10 11 12 |
└ 　　　 ┘
の２つの行列に分割し、最終的には
┌　　　 　 ┐
| 1 2 3　 　7 8 9 |
|　　　　 　 |
| 4 5 6 　10 11 12 |
└ 　　　 　 ┘
と結合した形にしたいのです。

回答No.1

CPm · ベストアンサー

どのような行列を出発点にするかによっていろいろな考え方がありますが，次の方法は比較的簡単でしょう．

<< LinearAlgebra`MatrixManipulation`

mat　=　{{1, 2, 3},
　　　　　{4, 5, 6},
　　　　　{7, 8, 9},
　　　　　{10, 11, 12}}

のもとで

AppendRows[TakeRows[mat, 2], TakeRows[mat, -2]]

とすれば，出てきます．