Re: Combine matrices of equal height
- To: mathgroup at smc.vnet.net
- Subject: [mg111058] Re: Combine matrices of equal height
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Sun, 18 Jul 2010 01:06:38 -0400 (EDT)
TF[m_] := Flatten[Transpose[m]]
Combine[m1_, m2_] :=
Partition[Join[m1 // TF, m2 // TF], Length[m1]] // TF
Combine2[m1_, m2_] :=
Flatten[Transpose[Join[Transpose[m1], Transpose[m2]]]]
Combine3[m1_, m2_] := Flatten[Riffle[m1, m2]]
m1 = Array[x, {3, 4}];
m2 = Array[y, {3, 4}];
Combine[m1, m2] == Combine2[m1, m2] == Combine3[m1, m2]
True
Bob Hanlon
---- Sam Takoy <sam.takoy at yahoo.com> wrote:
=============
Hi,
Given two matrices of equal height, what's the best way to combine them.
Here's what I did
TF[m_] := Flatten[Transpose[m]]
Combine[m1_, m2_] :=
Partition[Join[m1 // TF, m2 // TF], Length[m1]] // T
Surely there's a better way of doing it.
Thanks!