New in Wolfram
Mathematica
8: Financial Visualization
◄
previous
|
next
►
Graphics & Visualization
Create Highly Customized Charts
Create charts with very specific appearances.
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]=