Wolfram
Mathematica
8의 신기능: 그래프 및 네트워크 모델링
◄
이전
|
다음
►
응용 분야
언바운드 요소의 처리
그래프의 언바운드 요소들을 어떻게 처리할지 설정할 수 있습니다.
In[1]:=
X
packing = {"ClosestPacking", "ClosestPackingCenter", "Layered", "LayeredLeft", "LayeredTop", "NestedGrid"};
In[2]:=
X
edges = Union[ Flatten[Table[ Table[j \[UndirectedEdge] FromDigits[Insert[IntegerDigits[j, 2], 1, i], 2], {i, Length[IntegerDigits[j, 2]] + 1}], {j, 1, 80}]]];
In[3]:=
X
Grid[Flatten[{Style[#, 11, FontFamily -> "Verdana"] & /@ #, Table[Graph[edges, GraphLayout -> {"PackingLayout" -> pm}, BaselinePosition -> Top], {pm, #}]} & /@ Partition[packing, {3}], 1], Frame -> {All, {True, False, True, False}}, FrameStyle -> LightGray, Spacings -> {.5, {{2, 1}}}]
Out[3]=