Новое в системе Wolfram
Mathematica
8: Анализ графов и сетей
◄
предыдущая
|
следующая
►
Прикладные области
Вычитание случайных окрестностей
Система
Mathematica
8 предоставляет функции для нахождения подграфов и графов окрестности.
In[1]:=
X
graph = GridGraph[{25, 50}];
In[2]:=
X
Subgraph[graph, Complement[VertexList[graph], VertexList[ NeighborhoodGraph[graph, RandomSample[VertexList[graph], 20], 1]]], ImageSize -> 500]
Out[2]=