Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2000
*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 2000

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

Search the Archive

Re: Getting peak value from a Graph in Plot command - pls help

  • To: mathgroup at smc.vnet.net
  • Subject: [mg23996] Re: [mg23953] Getting peak value from a Graph in Plot command - pls help
  • From: BobHanlon at aol.com
  • Date: Mon, 19 Jun 2000 01:45:38 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

In a message dated 6/18/2000 3:15:23 AM, fannews at email.com writes:

>I would be grateful if anyone knows if there is any command that I can
>use to extract the highest peak value from a graph in a Plot command?
>
This will handle multiple graphs

thePlot = 
    Plot[{E^(-x) * Sin[x], -0.75*E^(-Abs[x - Pi]) * Sin[x]}, {x, 0, 2Pi}, 
      PlotStyle -> {RGBColor[0, 0, 1], RGBColor[0, 1, 0]}, 
      DisplayFunction ->  Identity];

pts = Cases[thePlot, x_?(Head[#] == Line &) :> x[[1]], {1, Infinity}];

yMax = Max[#] & /@ (Transpose[#][[2]] & /@ pts);

maxCoord = Flatten[Cases[pts, {x_, #}, {1, Infinity}] & /@ yMax, 1];

Show[{thePlot, 
      Graphics[{AbsolutePointSize[5], RGBColor[1, 0, 0], Point[#]} & /@ 
          maxCoord]}, DisplayFunction -> $DisplayFunction];


Bob Hanlon


  • Prev by Date: Re: Annoying "Hand"/"Glove" in Mathematica 4 for Linux
  • Next by Date: Re: User problem
  • Previous by thread: Getting peak value from a Graph in Plot command - pls help
  • Next by thread: Re: Getting peak value from a Graph in Plot command - pls help