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

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

• To: mathgroup at smc.vnet.net
• Subject: [mg61164] Re: Maximum y-value in a list of xy pairs
• From: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>
• Date: Tue, 11 Oct 2005 06:19:11 -0400 (EDT)
• Organization: Uni Leipzig
• References: <difq2j$f3i$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

Hi,

Max[Transpose[pairs][[2]]]

??

Regards

  Jens

<mike_in_england2000 at yahoo.co.uk> schrieb im 
Newsbeitrag news:difq2j$f3i$1 at smc.vnet.net...
| 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
|