Minimalwerterkennung 

Importieren Sie die täglichen Microsoft-Aktienpreise eines Jahres.

In[1]:=

X data = FinancialData["MSFT", {{2012, 1, 1}, {2013, 1, 1}, "Day"}][[ All, 2]];

Berechnen und visualisieren Sie die Minimalwerte der täglichen Aktienpreise.

In[2]:=

X valleys = # {1, -1} & /@ FindPeaks[-data, 5];

In[3]:=

X ListLinePlot[data, Epilog -> {PointSize[Medium], Red, Point[valleys]}, AspectRatio -> 1/3, ImageSize -> Medium]

Out[3]=