Wolfram
Mathematica
8의 신기능: 그래프 및 네트워크 모델링
◄
이전
|
다음
►
응용 분야
모서리 모양 내장 라이브러리
Mathematica
8은 측면의 형상 함수에 대한 대규모 컬렉션을 내장하고 있습니다.
In[1]:=
X
shapes = {"CarvedArrow", "DashedLine", "DiamondLine", "DottedLine", "FilledArcArrow", "HalfFilledArrow", "HalfUnfilledDoubleArrow", "ShortCarvedArcArrow", "UnfilledArrow"};
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}, EdgeShapeFunction -> {{#, "ArrowSize" -> .06}}, VertexSize -> 0.1, VertexStyle -> Directive[EdgeForm[None], GrayLevel[0.7]], PlotLabel -> Style[#, 11, FontFamily -> "Verdana"], EdgeStyle -> Hue[.6, 1, .6], ImageSize -> {180, 150}] & /@ shapes;
In[3]:=
X
Grid[Partition[graphs, {3}], Frame -> All, FrameStyle -> LightGray]
Out[3]=
