MathGroup Archive 2013

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

Search the Archive

Re: Position

  • To: mathgroup at smc.vnet.net
  • Subject: [mg131152] Re: Position
  • From: Ray Koopman <koopman at sfu.ca>
  • Date: Fri, 14 Jun 2013 05:03:16 -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

Length[t = RandomReal[{0, 5}, 10^6]]
1000000

AbsoluteTiming@Length[p = Position[t, _?(# > 2 &)]]
{4.348019, 599993}

AbsoluteTiming@Length[q = Pick[Range@Length@t, UnitStep[t - 2], 1]]
{0.716786, 599993}

Flatten@p === q
True

----- Costa Bravo <q13a27tt 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



  • Prev by Date: Re: problems with NDSolve
  • Next by Date: problem with running mathematica with & sign from command line
  • Previous by thread: Re: Position
  • Next by thread: Re: Position