Groupez les molécules en fonction de leurs propriétés
Chargez des acides de ChemicalData extrayez leurs formules et quelques propriétés.
In[1]:=

acids = Take[ChemicalData["Acids"], {3, 18}]
Out[1]=

In[2]:=

properties =
Outer[ChemicalData, acids, {"MolarMass", "MeltingPoint"}, 1]
Out[2]=

In[3]:=

formulas = ChemicalData[#, "Formula"] & /@ acids
Out[3]=

Visualisez la classification hiérarchique des acides en fonction de leurs propriétés.
In[4]:=

ClusteringTree[properties -> formulas]
Out[4]=
