Re: Building a matrix
- To: mathgroup at smc.vnet.net
- Subject: [mg132746] Re: Building a matrix
- From: Alexei Boulbitch <Alexei.Boulbitch at iee.lu>
- Date: Wed, 21 May 2014 04:14:22 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-outx@smc.vnet.net
- Delivered-to: mathgroup-newsendx@smc.vnet.net
Given:
m = [0,0,0}
n = {1,2,3}
how can I get a function to give:
{{1,2,3,0,0,0,0,0,0}, {0,0,0,1,2,3,0,0,0}, {0,0,0,0,0,0,1,2,3}}
???
Bruno
Hi, Bruno,
You might do like the following, for example:
Map[Flatten, Table[RotateRight[{n, m, m}, i], {i, 0, 2}]]
Returning
{{1, 2, 3, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 2, 3, 0, 0, 0}, {0, 0, 0,
0, 0, 0, 1, 2, 3}}
As you want, or a bit shorter:
Flatten /@ (RotateRight[{n, m, m}, #] & /@ {0, 1, 2})
Returning the same.
Have fun, Alexei
Alexei BOULBITCH, Dr., habil.
IEE S.A.
ZAE Weiergewan,
11, rue Edmond Reuter,
L-5326 Contern, LUXEMBOURG
Office phone : +352-2454-2566
Office fax: +352-2454-3566
mobile phone: +49 151 52 40 66 44
e-mail: alexei.boulbitch at iee.lu