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

Label of Max[list]

  • To: mathgroup at smc.vnet.net
  • Subject: [mg50186] Label of Max[list]
  • From: "Dr. Wolfgang Hintze" <weh at snafu.de>
  • Date: Thu, 19 Aug 2004 06:28:21 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

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?

Any hint appreciated.

Wolfgang


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