MathGroup Archive 2000

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Could this be improved?

How about


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

  • Next by Date: Re: Bessel J0 zeros
  • Previous by thread: Re: Could this be improved?
  • Next by thread: Re: Could this be improved?