Wolfram
Mathematica
8의 신기능: 그래프 및 네트워크 모델링
◄
이전
|
다음
►
응용 분야
꼭지점 형태의 내장 라이브러리
Mathematica
8 은 꼭지점 모양 함수에 대한 대규모 컬렉션을 내장하고 있습니다.
In[1]:=
X
shapes = {"Capsule", "Circle", "ConcaveHexagon", "Diamond", "FiveDown", "Parallelogram", "RoundedUpTrapezoid", "Square", "Star"};
In[2]:=
X
graphs = Graph[{1 \[UndirectedEdge] 2, 1 \[UndirectedEdge] 6, 2 \[UndirectedEdge] 4, 2 \[UndirectedEdge] 3, 4 \[UndirectedEdge] 5, 5 \[UndirectedEdge] 1, 6 \[UndirectedEdge] 2}, VertexShapeFunction -> #, VertexSize -> 0.2, PlotLabel -> Style[#, 11, FontFamily -> "Verdana"], VertexStyle -> Directive[EdgeForm[None], Hue[.6, .5, .8]], EdgeStyle -> Gray, ImageSize -> {180, 150}] & /@ shapes;
In[3]:=
X
Grid[Partition[graphs, {3}], Frame -> All, FrameStyle -> LightGray]
Out[3]=