Detección de valle 

Importe el precio diario de 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 valles del precio diario de acciones.

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