Помогите автоматизировать задачу
Цитата:
firstLevelClusters[X_] := Block[{t, m, M, allCls, branches},
If[
(Length[X] == 1) || VectorQ[X], {X},
M = Max[d /@ Flatten[Outer[List, X, X, 1], 1]];
m = Min[Select[(d /@ Flatten[Outer[List, X, X, 1], 1]), # != 0 &]];
Part[Union[clusters[X, #] & /@ Table[t, {t, m/2, M + m, m/2}]], 2]
]
]
X = {{1, 0}, {0, 0}, {0, 0.7}, {0, 1}, {0, 3}, {0, 4}, {0, 6}, {0, 7}};
firstLevelClusters[X]
Subscript[c, k] = firstLevelClusters[X]
For[
k = 2, k <= !, k++,
Subscript[c, k] =
Map[firstLevelClusters, Subscript[c, k] - 1, {k - 1}]
]
TreeForm[Subscript[c, k] /. {{ _?VectorQ}} -> {}]
В общем надо, чтобы строилось кластерное дерево через команду TreeForm, осталось лишь задать коэффициент для К, где К <= чему-то, не могу догнать что туда надо написать
