Графика и визуализация

Отображение направления и интенсивности тенденций цветом 

In[1]:=

X Column[Table[ CandlestickChart[{"MSFT", {{2010, 1, 5}, {2010, 1, 20}}}, ChartElementFunction -> cf, BarSpacing -> 0.3, ImageSize -> 500, AspectRatio -> 1/2, ChartBaseStyle -> AbsoluteThickness[3], ColorFunction -> (ColorData["RedGreenSplit"][#6] &), Frame -> {Left, Right, Top}, FrameTicks -> {{True, True}, {False, False}}, Axes -> {True, False}, PlotRangePadding -> {None, {Scaled[0], Scaled[0.04]}}], {cf, {"FadingCandlestick", "ArrowCandlestick"}}]]

Out[1]=