Новое в системе Wolfram
Mathematica
9
◄
предыдущая
|
следующая
►
Новое в системе Wolfram
Mathematica
9
›
Легенды
Легенда с составляющими молекулы
Добавление легенды к трёхмерной модели молекулы кофеина.
In[1]:=
X
caffeine = Show[ChemicalData["Caffeine", "MoleculePlot"], PlotLabel -> Style["Caffeine 3D Molecular Plot", 20], LabelStyle -> {GrayLevel[0.3], Bold}]
Out[237]=
Нахождение составляющих кофеина и создание легенды, используя соответствующие цвета.
In[2]:=
X
elements = ChemicalData["Caffeine", "ElementTypes"]; elementLegend = SwatchLegend[ElementData[#, "IconColor"] & /@ elements, elements, LegendMarkerSize -> 20, LabelStyle -> {Bold, GrayLevel[0.3], 18}]
Out[2]=
Добавление легенды с составляющими к графику молекулы кофеина.
In[3]:=
X
Legended[caffeine, elementLegend]
Out[241]=