Группировка молекул на основе их характеристик

Загрузите данные о кислотах из ChemicalData и извлеките их формулы и некоторые характеристики.

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]=

Визуализируйте иерархическую группу кислот на основе их характеристик.

In[4]:=

ClusteringTree[properties -> formulas]

Out[4]=