MathGroup Archive 2004

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

Search the Archive

Re: partition of 2D arrray

  • To: mathgroup at smc.vnet.net
  • Subject: [mg49161] Re: partition of 2D arrray
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Tue, 6 Jul 2004 03:33:18 -0400 (EDT)
  • Organization: Universitaet Leipzig
  • References: <ccb54i$ei1$1@smc.vnet.net>
  • Reply-to: kuska at informatik.uni-leipzig.de
  • Sender: owner-wri-mathgroup at wolfram.com

Hi,

lst = {{1, 2, 3, 4}, {5, 6, 7, 8}, {9, 10, 11, 12}, {13, 14, 15, 16}};

lst[[All, {1, 2}]]

Take[#, 2] & /@ lst

Drop[#,-2] & /@ lst

Transpose[Take[Transpose[lst], 2]]

SetAttributes[If, SequenceHold]
MapIndexed[If[Last[#2] <= 2, #1, Sequence[]] &, lst, {2}]

Regards
  Jens

"Ravinder Kumar B." wrote:
> 
> Dear Friends,
> I have a list of 2D data of the following form:
> {{1,2,3,4},{5,6,7,8},{9,10,11,12},{13,14,15,16}};
> In MatrixForm it is 4x4 matrix.
> How do I extract the fisrt two column of the data from the above matrix.
> i.e.,
> {{1,2},{5,6},{9,10},{13,14}}
> 
> --
>  Regards,                                   Jul 2
>     Ravi
> 
>          |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
>          |           Ravinder Kumar Banyal (SRF),                |
>          |          Indian Institute of Astrophysics,            |
>          |           Koramangala Bangalore - 560 034. INDIA      |
>          | email : banyal at iiap.res.in, ravi at crest.ernet.in       |
>          | Ph No : 080 25530672 (IIA)       080 7931972 (Hoskote)|
>          |                                     7931952           |
>           ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> Philosophers have interpreted the world in various ways, but the point is
> to change it. --Karl Marx




  • Prev by Date: Re: Re: DSolve question
  • Next by Date: RE : partition of 2D arrray
  • Previous by thread: RE: partition of 2D arrray
  • Next by thread: Solid plot