Lieber W,
warum nicht mal ganz einfach mit
d={1,2,3,5,8,7,6,4,6,8,11,13,12,10,8,6,3,3}
{1,2,3,5,8,7,6,4,6,8,11,13,12,10,8,6,3,3}
Table[If[
d[[x]]>d[[x-1]]
&&
d[[x]]>d[[x+1]],
x,0],
{x,2,17}]~DeleteCases~0
gibt: {5,12}
wouter.
At 12:32 21-05-97 +0200, Wolfram Liebchen wrote:
>Hallo,
>
>Ich habe eine Liste mit y-Werten einer Funktion. Die
>zugehörige Liste mit x-Werten fehlt, weil die Punkte
>äquidistant liegen.
>
>Meine Frage:
>Wie kann ich mehrere Peaks in diesem Datensatz finden, also
>so etwas wie "FindMinimum" nur eben für Listen mit Datenpunkten?
>Danke!
>
>Gruß
>
>Wolfram
>
>
>+-----------------------------------------------------+
>| Wolfram Liebchen |
>| Forschungsinstitut für Optik, Tübingen, Deutschland |
>| mailto:liebchen@XXXXXXX.de |
>+-----------------------------------------------------+
>
>
>
>
>
Dr. Wouter L. J. MEEUSSEN
eu000949@XXXXXXX.be
w.meeussen.vdmcc@XXXXXXX.be
|