Detección de pico 

Importe el precio diario de las acciones de Microsoft en un año.

In[1]:=

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

Compute y visualice picos del precio diario de acciones.

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]=