Gráficos y visualización

Cree gráficos altamente personalizados 

In[1]:=

X Framed[TradingChart[{"GOOG", {{2010, 8, 1}, {2010, 10, 29}}}, {FinancialIndicator["BBands", "LineStyle" -> Table[ColorData[45][i], {i, {3, 4, 1}}]], FinancialIndicator["PSAR", "LineStyle" -> Red], FinancialIndicator["MACD", "Filling" -> Automatic, "LineStyle" -> Table[ColorData[45][i], {i, {4, 1}}]]}, ImageSize -> 550, PerformanceGoal -> "Speed", TrendStyle -> "BlueYellow", FrameStyle -> Directive[Darker@White, AbsoluteThickness[2]], LabelStyle -> Directive[White, FontFamily -> "Helvetica", FontSize -> 14], AxesStyle -> Directive[White], Method -> {"HighlightPosition" -> {2010, 10, 5}, "HighlightStyle" -> Directive[AbsolutePointSize[5], White], "AxisHighlightStyle" -> Directive[Opacity[0.3], White]}], RoundingRadius -> 15, Background -> RGBColor[0.25, 0.35, 0.4], FrameMargins -> 10]

Out[1]=