Mathematica 9 is now available
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: message 50001?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg50015] Re: message 50001?
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Thu, 12 Aug 2004 05:43:19 -0400 (EDT)
  • Organization: Universitaet Leipzig
  • References: <cfcqbg$42j$1@smc.vnet.net>
  • Reply-to: kuska at informatik.uni-leipzig.de
  • Sender: owner-wri-mathgroup at wolfram.com

Hi,

data = Table[If[i == 20, 100*Random[], Random[]], {i, 100}];

i = 1;
MapIndexed[If[#1 > data[[i]], i = #2[[1]]] &, data];
{i, data[[i]]}

or

p = Position[#, peak = Max[#]] &[data];
{p[[1,1]], peak}

Regards
  Jens

"1.156" wrote:
> 
> Mathematica wizards, I've managed to cripple together code to do something that
> I feel must be doable more easily and/or faster.
> 
> S is a list of reals containing a signal with a prominent peak in
> amplitude. I simply want to find the index of the peak (x, the number of
> entries into the list where the peak occurs). Here's what I did.
> 
> For[i = 1, S[[i]] ? max[S], i++, x = i];
> 
> Can some suggest a better way, especially one not using a For loop?
> 
> Thanks, Rob


  • Prev by Date: Re: message 50001?
  • Next by Date: Re: Re: How to set linewidth in 3-D graphics?
  • Previous by thread: Re: message 50001?
  • Next by thread: Re: message 50001?