Spitzenwerterkennung 

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 Spitzenwerte der täglichen Aktienpreise.

In[2]:=

X peaks = FindPeaks[data, 5]

Out[2]=

In[3]:=

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

Out[3]=