Ilustre la tendencia de acciones bursátiles con el tema Inline 

El tema Inlines muestra sólo el contenido de los gráficos, lo que lo hace un tema perfecto para usar en leyendas.

muestre la entrada completa de Wolfram Languageoculte la entrada

In[1]:=

X ticks = {"MMM", "AXP", "T", "BA", "CAT", "CVX", "CSCO", "KO", "DD", "XOM", "GE", "GS", "HD", "INTC", "IBM", "JNJ", "JPM", "MCD"}; data = FinancialData[#, {{2010, 1}, {2010, 12, 31}}] & /@ ticks;

In[2]:=

X inlines = DeleteCases[ DateListPlot[TimeSeriesAggregate[TimeSeries@#, {20, "Day"}], PlotTheme -> "Inline", AspectRatio -> Full, ImageSize -> {50, 30}], _?ColorQ, Infinity] & /@ data

Out[2]=

Use PointLegend para construir una barra de tendencias con el tema entre líneas.

In[3]:=

X PointLegend[106, ticks, LegendMarkers -> inlines, LegendMarkerSize -> {50, 30}, LegendLayout -> (SetterBar["MMM", Thread[ticks -> (Labeled[Sequence @@ #, Top] & /@ #)], Appearance -> "Horizontal" -> {2, 9}] &)]

Out[3]=

Muestre de forma interactiva información bursatil detallada desde una selección de líneas de acciones.

In[4]:=

X DynamicModule[{x = "T"}, Column[{PointLegend[106, ticks, LegendMarkers -> inlines, LegendMarkerSize -> {50, 30}, LegendLayout -> (SetterBar[Dynamic[x], Thread[ticks -> (Labeled[Sequence @@ #, Top] & /@ #)], Appearance -> "Horizontal" -> {2, 9}] &)], Dynamic[ TradingChart[{x, {{2010, 1}, {2010, 12, 31}}}, ImageSize -> 550], TrackedSymbols :> {x}]}, Alignment -> Center], SaveDefinitions -> True]

Out[4]=