Wolfram
Mathematica
8의 신기능: 금융 시각화
◄
이전
|
다음
►
그래픽 및 시각화
선전환 도표
삼선전환 도표를 사용하여 지난 3 분기에 걸쳐 지속된 추세의 전환을 찾으십시오.
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]=