Re: help to find position location
- To: mathgroup at smc.vnet.net
- Subject: [mg86656] Re: help to find position location
- From: "Dana DeLouis" <dana.del at gmail.com>
- Date: Sun, 16 Mar 2008 04:40:16 -0500 (EST)
> I'm stuck to find the position of (the Max value in ) each row. Hi. Couple of ways. Here are two. m = { {82, 71, 62, 47}, {52, 96, 31, 36}, {94, 52, 86, 12} }; Flatten[Map[Position[#1, Max[#1]] &, m]] {1, 2, 1} (* or *) Flatten[Map[Ordering[#1, -1] & , m]] {1, 2, 1} -- HTH :>) Dana DeLouis Mathematica 6, but reading 5.2 Help files "haitomi" <tpnycity at yahoo.com> wrote in message news:frclmj$rjp$1 at smc.vnet.net... > Hello All, > > > > t = Table[RandomInteger[{30, 99}], {i, 1, 3}, {j, 1, 4}] > > max = Map[Max, t] > > pos=Position[.........] > > I stuck to find the position of each row. > Example, if I run the table above they will generate for the following 3 X 4 matrix > { > {82, 71, 62, 47}, > {52, 96, 31, 36}, > {94, 52, 86, 12}, > > } > > and the the result of position I need will be > > {1,2,1} > > Anyone can help me....... > > Thank you all, > > Tomi >