Re: unpartition
- To: mathgroup at smc.vnet.net
- Subject: [mg45932] Re: unpartition
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Fri, 30 Jan 2004 04:15:58 -0500 (EST)
- Organization: Universitaet Leipzig
- References: <bvaonb$a25$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
ll=Partition[Table[4*(i - 1) + j, {i, 4}, {j, 4}],{2,2}];
Join @@ Transpose[
Partition[
Join @@@ Partition[
Flatten[Transpose[ll, {2, 3, 1, 4}], 2],
2],
2]
]
Regards
Jens
Steven Burger wrote:
>
> How do you unpartition a matrix?
>
> For example: Starting with,
>
> Partition[Table[4*(i - 1) + j, {i, 4}, {j, 4}],{2,2}]
>
> how do you go back to,
>
> Table[4*(i - 1) + j, {i, 4}, {j, 4}]