Groups | Search | Server Info | Login | Register

Groups > comp.soft-sys.math.mathematica > #16955

Re: Building a matrix

Show all headers | View raw

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@iee.lu

Back to comp.soft-sys.math.mathematica | Previous | Next | Find similar

Thread

Re: Building a matrix Alexei Boulbitch <Alexei.Boulbitch@iee.lu> - 2014-05-21 08:14 +0000

csiph-web