info
Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Groups keyboard shortcuts have been updated
Dismiss
See shortcuts
Re: Building a matrix
240 views
Skip to first unread message
Alexei Boulbitch
May 21, 2014, 4:14:26 AM5/21/14
to
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.b...@iee.lu
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.b...@iee.lu
0 new messages