WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

頂点と辺のカスタムのラベル

グラフの頂点と辺をカスタマイズしラベルを付けることが自動的に行える．

    
Wolfram Language code: place[name_] := Placed[Style[ToString[#], 9, Bold, FontFamily -> "Verdana"]& /@ name, name];
Wolfram Language code: PetersenGraph[6, 3, VertexLabels -> {1 -> place[{Above, After, Below, Before}], 3 -> place[{Left, Top, Right, Bottom}]}, EdgeLabels -> {910 -> place[{"Start", "Middle", "End"}]}, EdgeStyle -> Directive[White, Thick], VertexSize -> {1 -> 0.3, 3 -> 0.7}, ImagePadding -> 20, ImageSize -> 500, Background -> Hue[.6, .2, .95]]