Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

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

Re: Partition a list based on columns

Show all headers | View raw

On Jun 16, 1:02 am, StatsMath <stats.ma...@gmail.com> wrote:
> [...]
>
> What would be a good way to line up elements in a list in a diagonal
> fashion, for ex: from Range[9] want to create the follwing matrix:
>
> 1 2 4
> 3 5 7
> 6 8 9
>
> Thanks in advance!

This will give an r x c matrix whose elements are
the integers 1...r*c in the positions you asked for:

m[r_,c_] := With[{d = Which[
  r < c-1, Join[Range[ r ],Table[r,{c-2-r}],Range[ r ,1,-1]],
  r > c-1, Join[Range[c-1],Table[c-1,{r-c}],Range[c-1,1,-1]],
   True  , Join[Range[c-2],                 Range[c-1,1,-1]]]},
  Partition[FoldList[Plus,0,d],c,1] + Range@r]

m[3,5] //TableForm

 1  2  4  7 10
 3  5  8 11 13
 6  9 12 14 15

Back to comp.soft-sys.math.mathematica | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread

Thread

Partition a list based on columns StatsMath <stats.math8@gmail.com> - 2011-06-16 08:02 +0000
  Re: Partition a list based on columns Ray Koopman <koopman@sfu.ca> - 2011-06-16 10:24 +0000
  Re: Partition a list based on columns Ray Koopman <koopman@sfu.ca> - 2011-06-17 04:09 +0000
  Re: Partition a list based on columns Ray Koopman <koopman@sfu.ca> - 2011-06-17 04:06 +0000
  Re: Partition a list based on columns DrMajorBob <btreat1@austin.rr.com> - 2011-06-17 09:52 +0000

csiph-web