График соединений в структуре молекулы
Готовые графики и сети из отобранных коллекций, включая ChemicalData.
Основное строение кофеина.
In[1]:=

ChemicalData["Caffeine", "StructureGraph"]
Out[1]=

Отобразите строениe молекул кислоты на двух графиках.
In[2]:=

ChemicalData[#, "StructureGraph"] & /@ {"NEthylmethylamine",
"Propylamine"}
Out[2]=

Проверьте, являются ли два графика изоморфными.
In[3]:=

ChemicalData[#, "StructureGraph"] & /@ {"NEthylmethylamine",
"Propylamine"};
IsomorphicGraphQ @@ %
Out[3]=
