MathGroup Archive 2004

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

Search the Archive

Re: Label of Max[list]


On 8/19/04 at 6:28 AM, weh at snafu.de (Dr. Wolfgang Hintze) wrote:

>Is there a standard function providing beside the maximum of a list
>also the label(s) of the maximum?

>My solution is this

>In[23]:= wehMax[li_] := {m = Max[li], Select[Range[Length[li]],
>li[[#1]] == m & ]}

>In[24]:= li = Table[Random[], {100}];

>In[25]:= wehMax[li]

>Out[25]= {0.9963517693166272, {89}}

>Is there a better one?

Yes,

In[1]:=
data = Table[Random[], {100}]; 
Flatten[{data[[#1]], #1}]&@[Ordering[data, -1]]

Out[2]=
{0.9996736913302084, 25}
--
To reply via email subtract one hundred and four


  • Prev by Date: Re: Re: FindMinimum and the minimum-radius circle
  • Next by Date: Re: Label of Max[list]
  • Previous by thread: Re: Label of Max[list]
  • Next by thread: Re: Label of Max[list]