Wolfram
Mathematica
8의 신기능: 그래프 및 네트워크 모델링
◄
이전
|
다음
►
응용 분야
사용자 지정 꼭지점과 모서리의 라벨링
Mathematica
8에서는 꼭지점과 모서리의 레이블이 자동화 되었으며, 완벽히 사용자 정의하여 수행할 수도있습니다.
In[1]:=
X
place[name_] := Placed[Style[ToString[#], 9, Bold, FontFamily -> "Verdana"] & /@ name, name];
In[2]:=
X
PetersenGraph[6, 3, VertexLabels -> {1 -> place[{Above, After, Below, Before}], 3 -> place[{Left, Top, Right, Bottom}] }, EdgeLabels -> {9 \[UndirectedEdge] 10 -> place[{"Start", "Middle", "End"}]}, EdgeStyle -> Directive[White, Thick], VertexSize -> {0.15, 1 -> 0.3, 3 -> 0.7}, ImagePadding -> 20, ImageSize -> 500, Background -> Hue[.6, .2, .95] ]
Out[2]=