Novos Recursos do
Mathematica
8: Grafos & Modelagem de Redes
◄
anterior
|
próximo
►
Áreas de Aplicação
Crie gráficos moleculares
A função
ChemicalData
pode ser utilizada para criar gráficos moleculares no
Mathematica
8. Este gráfico é de uma molécula de cafeína.
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]=