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}]]] &)]]
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}}}]