Liez le graphe de connectivité d'une molécule
Les graphes et réseaux déjà faits à partir de collections référencées, incluant ChemicalData.
La structure basique pour la caféine.
In[1]:=

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

Montrez deux structures de molécules d'acide.
In[2]:=

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

Testez si deux graphes sont isomorphiques.
In[3]:=

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