BuckyballGraph
更多信息和选项
- BuckyballGraph 也称为截断二十面体图或富勒烯图.
- BuckyballGraph[] 生成截断二十面体的 1-骨架.
- BuckyballGraph[n,"I"] 生成
‐戈德堡多面体的 1-骨架. - BuckyballGraph[n,"II"] 生成
‐戈德堡多面体的 1-骨架. - BuckyballGraph[n] 实际上等价于 BuckyballGraph[n,"II"].
- BuckyballGraph 接受与 Graph3D 相同的选项.
所有选项的列表
范例
打开所有单元 关闭所有单元基本范例 (2)
范围 (4)
BuckyballGraph[]BuckyballGraph[1]BuckyballGraph[3, "I"]BuckyballGraph[3, "II"]BuckyballGraph[1, "I", DirectedEdges -> True]选项 (77)
AnnotationRules (3)
BuckyballGraph[0, AnnotationRules -> {1 -> {VertexStyle -> Orange}}]BuckyballGraph[0, AnnotationRules -> {12 -> {EdgeStyle -> Orange}}]BuckyballGraph[0, AnnotationRules -> {"GraphProperties" -> {"Message" -> "hello"}}]AnnotationValue[%, "Message"]DirectedEdges (1)
BuckyballGraph[0]使用 DirectedEdges->True 生成有向图:
BuckyballGraph[0, DirectedEdges -> True]EdgeLabels (7)
BuckyballGraph[0, EdgeLabels -> {12 -> "Hello"}]el = EdgeList[BuckyballGraph[0]];BuckyballGraph[0, EdgeLabels -> Table[el[[i]] -> Subscript[e, i], {i, Length[el]}]]BuckyballGraph[0, EdgeLabels -> {12 -> [image], 13 -> [image], 25 -> [image]}]使用带符号位置的 Placed 来控制标签沿边的放置:
Table[BuckyballGraph[0, EdgeLabels -> {12 -> Placed["■■■", p]}, PlotLabel -> p, ImagePadding -> 10], {p, {"Start", "Middle", "End"}}]Table[BuckyballGraph[0, EdgeLabels -> {12 -> Placed["■■■", p]}, PlotLabel -> p], {p, {0, 1 / 3, 1 / 4}}]Table[BuckyballGraph[0, EdgeLabels -> {13 -> Placed["■■■", {1 / 2, p}]}, PlotLabel -> p], {p, {{0, 0}, {1 / 2, 1 / 2}, {1, 1}}}]在封装内使用 Placed 放置多个标签:
BuckyballGraph[0, EdgeLabels -> {12 -> Placed[{"lbl1", "lbl2"}, {"Start", "End"}]}]BuckyballGraph[0, EdgeLabels -> {31 -> Placed[{"lbl1", "lbl2", "lbl3"}, {"Start", "Middle", "End"}]}]使用 EdgeLabels 放置多个标签:
BuckyballGraph[0, EdgeLabels -> Placed["Name", Tooltip]]通过 Tooltip 和 StatusArea 自动按值标记:
BuckyballGraph[0, EdgeLabels -> Placed["Name", StatusArea]]EdgeShapeFunction (6)
获取 EdgeShapeFunction 的内置设置列表:
ResourceData["EdgeShapeFunction"]BuckyballGraph[0, EdgeShapeFunction -> "Line"]Table[BuckyballGraph[0, EdgeShapeFunction -> {{ef, "ArrowSize" -> 0.1}}, PlotLabel -> ef], {ef, {"BoxLine", "DiamondLine", "DotLine"}}]Table[BuckyballGraph[0, EdgeShapeFunction -> {{ef, "ArrowSize" -> 0.1}}, PlotLabel -> ef], {ef, ResourceData["EdgeShapeFunction", "FilledArrow"]}]Table[BuckyballGraph[0, EdgeShapeFunction -> {{ef, "ArrowSize" -> 0.1}}, PlotLabel -> ef], {ef, ResourceData["EdgeShapeFunction", "UnfilledArrow"]}]Table[BuckyballGraph[0, EdgeShapeFunction -> {{ef, "ArrowSize" -> 0.1}}, PlotLabel -> ef], {ef, ResourceData["EdgeShapeFunction", "CarvedArrow"]}]BuckyballGraph[0, EdgeShapeFunction -> {12 -> "DotLine"}]BuckyballGraph[0, EdgeShapeFunction -> {12 -> "BoxLine", "DotLine"}]ef[pts_List, e_] :=
Block[{s = 0.015, g = [image]}, {Arrowheads[{{s, 0.33, g}, {s, 0.67, g}}], Arrow[pts]}]BuckyballGraph[0, EdgeShapeFunction -> ef]EdgeShapeFunction 可以与 EdgeStyle 结合使用:
BuckyballGraph[0, EdgeStyle -> Blue, EdgeShapeFunction -> (Line[#1]&)]EdgeShapeFunction 具有比 EdgeStyle 更高的优先级:
BuckyballGraph[0, EdgeStyle -> Blue, EdgeShapeFunction -> ({Red, Line[#1]}&)]EdgeStyle (4)
Table[BuckyballGraph[0, EdgeStyle -> style, PlotLabel -> style], {style, {Gray, Specularity[GrayLevel[1], 1], Glow[Red]}}]BuckyballGraph[0, EdgeStyle -> {12 -> Blue, 13 -> Glow[Red]}]EdgeStyle 可以与 EdgeShapeFunction 结合使用:
ef1[el_, ___] := Cone[el, 0.05]BuckyballGraph[0, EdgeStyle -> Blue, EdgeShapeFunction -> ef1]EdgeShapeFunction 具有比 EdgeStyle 更高的优先级:
ef2[el_, ___] := {Red, Arrow[Tube[el], 0.1]}BuckyballGraph[0, EdgeStyle -> Blue, EdgeShapeFunction -> ef2]BuckyballGraph[0, BaseStyle -> Red, EdgeStyle -> Opacity[.1]]EdgeStyle 具有比 BaseStyle 更高的优先级:
BuckyballGraph[0, BaseStyle -> Red, EdgeStyle -> Blue]EdgeWeight (3)
BuckyballGraph[0, EdgeWeight -> RandomInteger[5, 30]]WeightedAdjacencyMatrix[%]//MatrixFormBuckyballGraph[0, EdgeWeight -> {a, b, c, d, e, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25}]WeightedAdjacencyMatrix[%]//MatrixFormBuckyballGraph[0, EdgeWeight -> {12 -> 2, 23 -> 4}]AnnotationValue[{%, 12}, EdgeWeight]GraphHighlight (3)
GraphLayout (5)
BuckyballGraph[0, GraphLayout -> Automatic]Table[BuckyballGraph[0, GraphLayout -> l, PlotLabel -> l], {l, {"CircularEmbedding", "SpiralEmbedding"}}]Table[BuckyballGraph[1, GraphLayout -> l, PlotLabel -> l], {l, {"SpringEmbedding", "SpringElectricalEmbedding", "HighDimensionalEmbedding"}}]VertexCoordinates 覆盖 GraphLayout 坐标:
{BuckyballGraph[0, GraphLayout -> "SpringElectricalEmbedding"],
BuckyballGraph[0, GraphLayout -> "SpringElectricalEmbedding", VertexCoordinates -> Table[{i, i}, {i, 0, 19}]]}使用 AbsoluteOptions 提取使用布局算法计算的 VertexCoordinates:
WheelGraph[5]AbsoluteOptions[%, VertexCoordinates]PlotTheme (4)
基本主题 (2)
VertexCoordinates (3)
BuckyballGraph[0]使用 AbsoluteOptions 提取结果顶点坐标:
AbsoluteOptions[%, VertexCoordinates]ellipseLayout[n_, {a_, b_}] := Table[{a Cos[2Pi / n u], b Sin[2Pi / n u]}, {u, 1, n}]Graphics[Point[ellipseLayout[20, {2, 1}]]]BuckyballGraph[0, VertexCoordinates -> ellipseLayout[20, {2, 1}]]VertexCoordinates 比 GraphLayout 具有更高的优先级:
BuckyballGraph[0, VertexCoordinates -> Table[{i, i, i}, {i, 20}], GraphLayout -> "CircularEmbedding"]VertexLabels (13)
BuckyballGraph[0, VertexLabels -> "Name"]BuckyballGraph[0, VertexLabels -> {2 -> "one"}]BuckyballGraph[0, VertexLabels -> Table[i -> Subscript[v, i], {i, 20}]]BuckyballGraph[0, VertexLabels -> {1 -> [image], 2 -> [image], 3 -> [image]}]使用带符号位置的 Placed 来控制标签放置,包括外部位置:
Table[BuckyballGraph[0, VertexSize -> 0.1, VertexShapeFunction -> "Cuboid", VertexLabels -> Table[i -> Placed["■■■", p], {i, 1}], PlotLabel -> p], {p, {Before, After, Below, Above}}]pl = {{Before, Below}, {After, Below}, {Before, Above}, {After, Above}};Table[BuckyballGraph[0, VertexSize -> 0.4, VertexShapeFunction -> "Cuboid", VertexLabels -> Table[i -> Placed["■■■", p], {i, 1}], PlotLabel -> p], {p, pl}]Table[BuckyballGraph[0, VertexSize -> 0.4, VertexLabels -> Table[i -> Placed[■■■, p], {i, 1}], VertexShapeFunction -> "Cuboid", PlotLabel -> p], {p, {Left, Top, Right, Bottom}}]pl = {{Left, Bottom}, {Right, Bottom}, {Left, Top}, {Right, Top}};Table[BuckyballGraph[0, VertexSize -> 0.4, VertexShapeFunction -> "Cuboid", VertexLabels -> Table[i -> Placed[[image], p], {i, 1}], PlotLabel -> p], {p, pl}]Table[BuckyballGraph[0, VertexSize -> 0.4, VertexShapeFunction -> "Cuboid", VertexLabels -> Table[i -> Placed[[image], p], {i, 1}], PlotLabel -> p], {p, {{0, 0}, {1 / 2, 1 / 2}, {1, 1}}}]Table[BuckyballGraph[0, VertexSize -> 0.35, VertexShapeFunction -> "Cuboid", ImagePadding -> 10, VertexLabels -> Table[i -> Placed[[image], {{1, 1}, p}], {i, 1}], PlotLabel -> p], {p, {{0, 0}, {1 / 2, 1 / 2}, {1, 1}}}]BuckyballGraph[0, VertexLabels -> {1 -> Placed[{"lbl1", "lbl2"}, {Above, Below}]}]BuckyballGraph[0, VertexLabels -> {1 -> Placed[{"lbl1", "lbl2", "lbl3", "lbl4"}, {Above, After, Below, Before}]}]使用 Placed 的参数来控制包括 Tooltip 在内的格式:
BuckyballGraph[0, VertexLabels -> Placed["Name", Tooltip]]或者 StatusArea:
BuckyballGraph[0, VertexLabels -> Placed["Name", StatusArea]]rotateLabel[lbl_] := Rotate[lbl, 45Degree]BuckyballGraph[0, VertexLabels -> Table[i -> Placed["xxx", Below, rotateLabel], {i, 3}]]panelLabel[lbl_] := Panel[lbl, FrameMargins -> 0, Background -> Lighter[Yellow, 0.7]]BuckyballGraph[0, VertexLabels -> Table[i -> Placed["xxx", Center, panelLabel], {i, 3}]]hyperlinkLabel[lbl_] := Hyperlink[lbl, "http://www.wolfram.com"]BuckyballGraph[0, VertexLabels -> Table[i -> Placed["xxx", Center, hyperlinkLabel], {i, 3}]]VertexShapeFunction (11)
获取 VertexShapeFunction 的内置集合列表:
ResourceData["VertexShapeFunction"]使用 "Basic" 集合中 VertexShapeFunction 的内置设置:
ResourceData["VertexShapeFunction", "Basic"]Table[BuckyballGraph[0, VertexShapeFunction -> vf, VertexSize -> 0.3, PlotLabel -> vf], {vf, {"Triangle", "Square", "Rectangle", "Pentagon", "Hexagon", "Octagon"}}]Table[BuckyballGraph[0, VertexShapeFunction -> vf, VertexSize -> 0.3, PlotLabel -> vf], {vf, {"DownTrapezoid", "UpTrapezoid", "Parallelogram", "FiveDown", "Circle", "Cuboid", "Star", "Capsule"}}]使用 "Rounded" 集合中 VertexShapeFunction 的内置设置:
ResourceData["VertexShapeFunction", "Rounded"]Table[BuckyballGraph[0, VertexShapeFunction -> vf, VertexSize -> 0.3, PlotLabel -> Style[vf, 10]], {vf, ResourceData["VertexShapeFunction", "Rounded"]}]使用 "Concave" 集合中 VertexShapeFunction 的内置设置:
ResourceData["VertexShapeFunction", "Concave"]Table[BuckyballGraph[0, VertexShapeFunction -> vf, VertexSize -> 0.3, PlotLabel -> vf], {vf, ResourceData["VertexShapeFunction", "Concave"]}]BuckyballGraph[0, VertexShapeFunction -> { 1 -> "Cuboid"}, VertexSize -> 0.2]BuckyballGraph[0, VertexShapeFunction -> { 1 -> "Cuboid", "Triangle"}, VertexSize -> 0.2]BuckyballGraph[0, VertexShapeFunction -> (Inset[[image], #]&)]vf[pt_, name_, bd_] :=
Translate[Scale[PolyhedronData["Spikey", "GraphicsComplex"], bd], pt];BuckyballGraph[0, VertexShapeFunction -> vf, VertexSize -> 0.2]VertexShapeFunction 可以与 VertexStyle 组合使用:
BuckyballGraph[0, VertexSize -> 0.2, VertexStyle -> Blue, VertexShapeFunction -> "Cuboid"]VertexShapeFunction 具有比 VertexStyle 更高的优先级:
vf2[pt_, name_, bd_] := {Red, Cuboid[pt - bd, pt + bd]}BuckyballGraph[0, VertexSize -> 0.2, VertexStyle -> Blue, VertexShapeFunction -> vf2]VertexShapeFunction 可以与 VertexSize 组合使用:
BuckyballGraph[0, VertexShapeFunction -> "Star", VertexSize -> {1 -> Small, Large}]VertexShapeFunction 具有比 VertexShape 更高的优先级:
BuckyballGraph[0, VertexSize -> 0.3, VertexShapeFunction -> "Star", VertexShape -> [image]]VertexSize (7)
BuckyballGraph[0, VertexSize -> Automatic]Table[BuckyballGraph[0, VertexSize -> s, PlotLabel -> s], {s, {Tiny, Small, Medium, Large}}]Table[BuckyballGraph[0, VertexSize -> s, PlotLabel -> s], {s, 0.1, 1, 0.3}]Table[BuckyballGraph[0, VertexSize -> {"Scaled", s}, PlotLabel -> {"Scaled", s}], {s, 0.1, 0.6, 0.2}]Table[BuckyballGraph[0, VertexSize -> s, PlotLabel -> s], {s, {{0.1, 0.2}, {0.2, 0.1}}}]BuckyballGraph[0, VertexSize -> {1 -> 0.2, 2 -> 0.3}]VertexSize 可以与 VertexShapeFunction 结合使用:
Table[BuckyballGraph[0, VertexSize -> s, VertexShapeFunction -> "Square", PlotLabel -> s], {s, {0.05, 0.1, 0.2}}]VertexStyle (4)
Table[BuckyballGraph[0, VertexStyle -> style, VertexSize -> 0.2, PlotLabel -> style], {style, {Yellow, Green}}]BuckyballGraph[0, VertexStyle -> {1 -> Blue, 2 -> Red}, VertexSize -> 0.2]VertexShapeFunction 可以与 VertexStyle 结合使用:
vf1[pt_, name_, bd_] := Cuboid[pt - bd, pt + bd]BuckyballGraph[0, VertexSize -> 0.2, VertexStyle -> Blue, VertexShapeFunction -> vf1]VertexShapeFunction 具有比 VertexStyle 更高的优先级:
vf2[pt_, name_, bd_] := {Red, Cuboid[pt - bd, pt + bd]}BuckyballGraph[0, VertexSize -> 0.2, VertexStyle -> Blue, VertexShapeFunction -> vf2]VertexStyle 可以与 BaseStyle 结合使用:
BuckyballGraph[0, VertexShapeFunction -> "Cuboid", VertexStyle -> LightGreen, BaseStyle -> EdgeForm[Green], VertexSize -> 0.2]VertexStyle 具有比 BaseStyle 更高的优先级:
BuckyballGraph[0, VertexStyle -> Blue, BaseStyle -> Gray, VertexSize -> 0.2]VertexWeight (3)
BuckyballGraph[0, VertexWeight -> Range[20]]AnnotationValue[{%, 1}, VertexWeight]BuckyballGraph[0, VertexWeight -> {1 -> 2}]AnnotationValue[{%, 1}, VertexWeight]BuckyballGraph[0, VertexWeight -> {a, b, c, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17}]AnnotationValue[{%, 1}, VertexWeight]应用 (11)
基本应用 (7)
Table[BuckyballGraph[2, GraphLayout -> l, PlotLabel -> l], {l, {"SpringElectricalEmbedding", "RadialEmbedding", "SpiralEmbedding"}}]BuckyballGraph[2, {VertexStyle -> Red, VertexSize -> 0.5, EdgeStyle -> Directive[Blue, Dashed, Thick]}]g = BuckyballGraph[0];Annotate[{g, 1}, {VertexLabels -> "one", VertexSize -> Medium}]Annotate[{g, 12}, EdgeStyle -> Directive[Red, Thick]]g = BuckyballGraph[1]Graph3D[g, GraphLayout -> "LayeredEmbedding"]Graph3D[g, EdgeStyle -> Red]Graph[BuckyballGraph[4]]VertexCount[BuckyballGraph[n, "I"]]EdgeCount[BuckyballGraph[n, "I"]]VertexCount[BuckyballGraph[n, "II"]]EdgeCount[BuckyballGraph[n, "II"]]图论 (4)
g = BuckyballGraph[1];FindVertexColoring[g, ColorData[106, "ColorList"]]Annotate[g, {VertexStyle -> Thread[VertexList[g] -> %], VertexSize -> Large}]g = BuckyballGraph[1];FindEdgeColoring[g, ColorData[106, "ColorList"]]Annotate[g, EdgeStyle -> Thread[EdgeList[g] -> (Directive[#, Thick]& /@ %)]]g = BuckyballGraph[1];FindShortestTour[g]HighlightGraph[g, PathGraph[%[[2]]], GraphHighlightStyle -> "Thick"]g = BuckyballGraph[1];FindSpanningTree[g];HighlightGraph[g, %, GraphHighlightStyle -> "Thick"]属性和关系 (2)
g = BuckyballGraph[2]VertexCount[g] / EdgeCount[g]BuckyballGraph[1] 是对应于截断二十面体的图:
g = BuckyballGraph[1]poly = UniformPolyhedron["TruncatedIcosahedron"]IsomorphicGraphQ[g, MeshConnectivityGraph[poly, 0]]相关指南
-
▪
- 图的构建与表示
文本
Wolfram Research (2022),BuckyballGraph,Wolfram 语言函数,https://reference.wolfram.com/language/ref/BuckyballGraph.html.
CMS
Wolfram 语言. 2022. "BuckyballGraph." Wolfram 语言与系统参考资料中心. Wolfram Research. https://reference.wolfram.com/language/ref/BuckyballGraph.html.
APA
Wolfram 语言. (2022). BuckyballGraph. Wolfram 语言与系统参考资料中心. 追溯自 https://reference.wolfram.com/language/ref/BuckyballGraph.html 年
BibTeX
@misc{reference.wolfram_2026_buckyballgraph, author="Wolfram Research", title="{BuckyballGraph}", year="2022", howpublished="\url{https://reference.wolfram.com/language/ref/BuckyballGraph.html}", note=[Accessed: 18-August-2026]}
BibLaTeX
@online{reference.wolfram_2026_buckyballgraph, organization={Wolfram Research}, title={BuckyballGraph}, year={2022}, url={https://reference.wolfram.com/language/ref/BuckyballGraph.html}, note=[Accessed: 18-August-2026]}