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