Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*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 2005

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

Search the Archive

Re: Maximum y-value in a list of xy pairs

  • To: mathgroup at smc.vnet.net
  • Subject: [mg61198] Re: Maximum y-value in a list of xy pairs
  • From: "Ray Koopman" <koopman at sfu.ca>
  • Date: Wed, 12 Oct 2005 01:43:06 -0400 (EDT)
  • References: <difq2j$f3i$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

pairs[[Ordering[Reverse/@pairs,-1]]]

{{7, 0.742}}

mike_in_england2000 at yahoo.co.uk wrote:
> Hi
>
> Is there an easy way of finding the maximum y-value of a list of x-y
> pairs?  For example:
>
> pairs = {{0, 0.175}, {1, 0.54}, {2, 0.27}, {3, 0.47}, {4, 0.325}, {5,
>       0.527}, {6, 0.22}, {7, 0.742}, {8, 0.109}, {9, 0.3314}, {10,
> 0.1481}}
>
> Max[pairs] gives 10 which isnt what I want.  At the moment I am doing
> this:
>
> maxy = 0;
> Do[
>   currentx = pairs[[count]][[1]];
>   currenty = pairs[[count]][[2]];
>   If[currenty > maxy,
>     maxy = currenty;
>     x = currentx;
>     ];
>   , {count, 1, Length[pairs]}
>   ]
> Print[{x, maxy}]
>
> Which gives the maximum y value along with with its x-value but I
> suspect that there is a much more elegant way.  Any help would be
> appreciated.
> 
> Thanks,
> 
> Mike


  • Prev by Date: "Leibnitz" from for partial differentiation?
  • Next by Date: Re: Re: Language vs. Library
  • Previous by thread: Re: Maximum y-value in a list of xy pairs
  • Next by thread: Re: Maximum y-value in a list of xy pairs