Should we invest in Apple?

fdata = FinancialData[#, "CumulativeFractionalChange", {{2009, 1, 1}, {2014, 11, 1}}] & /@
       {"NASDAQ:AAPL", "NASDAQ:GOOGL", "NASDAQ100"};

ma200 = FinancialIndicator["WildersMovingAverage", 200] /@ fdata[[All, All, 2]];
madata = Transpose[{fdata[[1, All, 1]], Join[ConstantArray[Missing[], 199], #]}] & /@ ma200;

DateListPlot[Join[fdata, madata],  Joined -> {False, False, False, True, True, True}, 
 PlotStyle -> ColorData[1, "ColorList"][[{1, 2, 3, 1, 2, 3}]],
 BaseStyle -> Thick, 
 PlotLegends -> LineLegend[Automatic, {"NASDAQ:AAPL", "NASDAQ:GOOGL", "NASDAQ100"},
   LegendLayout -> (Grid[#[[{1, 3, 2}]]] &)]]

enter image description here


Using mathematica v10

ticks = TemporalData@
 FinancialData[#,"CumulativeFractionalChange", {2010}] & /@ {"AAPL", "^NDX","GOOGL"};
maticks = MovingAverage[#, 200] & /@ ticks;
DateListPlot[{ticks, maticks}, 
 PlotLegends -> {"AAPL", "^NDX", "GOOGL", "MA(200)-AAPL", 
   "MA(200)-^NDX", "MA(200)-GOOGL"}, 
 Filling -> {1 -> Bottom, 2 -> Bottom, 3 -> Bottom}, 
 PlotTheme -> "Detailed", 
 PlotStyle -> {{Blue, Red, 
    Black}, {{Dashed, Blue}, {Dashed, Red}, {Dashed, Black}}}]

enter image description here