Новое в системе Wolfram
Mathematica
8: Финансовая визуализация
◄
предыдущая
|
следующая
►
Графика и визуализация
Использование оберток для аннотирования событий
Использование оберток данных для добавления ярлыков непосредственно к данным, соответствующим событию.
In[1]:=
X
data = FinancialData["EBAY", "OHLC", {{2010, 5, 1}, {2010, 5, 31}}]; sty[label_] := Style[label, 14]; ndata = Cases[data, {date_, {o_, h_, l_, c_}} :> Which[ (*Doji*)Abs[(c - o)]/o < 0.005, Labeled[{date, {o, h, l, c}}, Column[sty /@ {"Doji", "\[DownArrow]"}, Center], Above], (*Long wave*)(h - l)/l > 0.1, Labeled[{date, {o, h, l, c}}, Column[sty /@ {"Long wave", "\[DownArrow]"}, Center], Above], (*Hammer*)(h - c)/c < 0.005 && 0 < (c - o)/o < 0.01, Labeled[{date, {o, h, l, c}}, Column[sty /@ {"Hammer", "\[DownArrow]"}, Center], Above], (*Bullish*)(c - o)/o > 0.05, Labeled[{date, {o, h, l, c}}, Column[sty /@ {"Bullish"}, Center], Center], True, {date, {o, h, l, c}}]]; CandlestickChart[ndata, ImageSize -> 500, BaseStyle -> {FontFamily -> "Helvetica"}, ChartElementFunction -> "FadingCandlestick", Frame -> {Left, Right, Top}, FrameTicks -> {{True, True}, {False, False}}, Axes -> {True, False}, PlotRangePadding -> {None, Automatic}]
Out[1]=