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