Re: Position
- To: mathgroup at smc.vnet.net
- Subject: [mg131134] Re: Position
- From: "Dr. Wolfgang Hintze" <weh at snafu.de>
- Date: Fri, 14 Jun 2013 04:57:15 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-outx@smc.vnet.net
- Delivered-to: mathgroup-newsendx@smc.vnet.net
- References: <kpbp24$95n$1@smc.vnet.net>
On 13 Jun., 08:32, Costa Bravo <q13a2... at aol.com> wrote:
> How can I find the indices of all elements greaters than e.g. 2 of a vector.
>
> t=RandomReal[{0,5},100]
> Position[t,??]
>
> --
> Costa
Not very elegant but it works:
In[52]:= t = RandomReal[{0, 5}, 10]
Out[52]= {3.6397213817178766, 4.7225642409045605, 1.3556422889069708,
\
2.9166466052152735, 1.9669329531284898, 4.151613177508343, \
0.5892783429281856, 4.990426012185576, 3.13226327938696, \
3.9424416959816426}
In[53]:= Flatten[(Position[t, #1] & ) /@ Select[t, #1 > 2 & ]]
Out[53]= {1, 2, 4, 6, 8, 9, 10}
Regards,
Wolfgang