Новое в системе Wolfram
Mathematica
8: Моделирование графов и сетей
◄
предыдущая
|
следующая
►
Прикладные области
Создание молекулярных графов
Команда
ChemicalData
может быть использована для построения молекулярных графов в системе
Mathematica
8. Здесь отображен граф молекулы кофеина.
In[1]:=
X
Graph[MapIndexed[Labeled[#2[[1]], #1, Center] &, ChemicalData["Caffeine", "VertexTypes"]], ChemicalData["Caffeine", "EdgeRules"], VertexSize -> Large, ImageSize -> 500, VertexCoordinates -> ChemicalData["Caffeine", "VertexCoordinates"], GraphStyle -> "SimpleLink", DirectedEdges -> False]
Out[1]=