Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

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

Search the Archive

Re: Label of Max[list]

  • To: mathgroup at smc.vnet.net
  • Subject: [mg50208] Re: Label of Max[list]
  • From: Bill Rowe <readnewsciv at earthlink.net>
  • Date: Fri, 20 Aug 2004 04:58:04 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

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]