New in Wolfram
Mathematica
8: Financial Visualization
◄
previous
|
next
►
Graphics & Visualization
LineBreakChart
Use a three-line break chart to identify reversals of trends that have persisted for the previous three periods.
In[1]:=
X
data = FinancialData["GOOG", {{2010, 1}, {2010, 5, 30}}];
In[2]:=
X
f[{{xmin_, xmax_}, {ymin_, ymax_}}, ___] := Rectangle[{xmin, ymin}, {xmax, ymax}, RoundingRadius -> Offset[5]]
In[3]:=
X
Column[{LineBreakChart[data, ImageSize -> 500, Axes -> {True, False}, Frame -> {{True, True}, {False, True}}, TrendStyle -> "Blue", ChartElementFunction -> f], DateListPlot[data, AspectRatio -> 1/4, ImageSize -> 500, Joined -> True]}]
Out[3]=