2014 dxdy logo

Научный форум dxdy

Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия,
Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки




 
 TreeForm
Сообщение28.12.2011, 18:56 
Помогите автоматизировать задачу

Цитата:
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, осталось лишь задать коэффициент для К, где К <= чему-то, не могу догнать что туда надо написать

 
 
 
 Re: TreeForm
Сообщение28.12.2011, 19:51 
А подробнее? Непонятно как-то. Что такое k?

 
 
 [ Сообщений: 2 ] 


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group