Re: Could this be improved?
- To: mathgroup at smc.vnet.net
- Subject: [mg21784] Re: Could this be improved?
- From: "DIAMOND Mark" <noname at noname.com>
- Date: Thu, 27 Jan 2000 22:57:07 -0500 (EST)
- Organization: The University of Western Australia
- References: <86mdpv$2f3@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
How about
a={1,2,3,4,5};
Transpose[Table[RotateRight[PadRight[a, 2*Length[a] - 1], i], {i, 0,
Length[a] - 1}]]
I am not sure how others would rate this solution. I came to it somewhat by
chance, first printing out your result in MatrixForm
and then observing that the columns were more simply described than the
rows, even though the rows are what
you are most interested in. Constructing the columns was then fairly easy
and Transpose gives you back what you want.
--
Mark R Diamond
Vision Research Laboratory
The University of Western Australia
no spam email: markd at psy dot uwa dot edu dot au