Wolfram Function Repository

Instant-use add-on functions for the Wolfram Language

Function Repository Resource:

 GraphAntipodes

Source Notebook

Find a pair of vertices that are a maximum distance apart on a graph

Contributed by: Stephen Wolfram and Jan Mangaldan

ResourceFunction["GraphAntipodes"][g]

gives a pair of vertices of graph g that have the greatest distance from each other.

Examples

Basic Examples (2) 

Generate an icosahedral graph:

In[1]:=
ico = Through[ Graph3D[VertexList, EdgeList][GraphData["IcosahedralGraph"]]]
Out[1]=

Highlight a pair of vertices that have the greatest graph distance from each other:

In[2]:=
HighlightGraph[ico, ResourceFunction["GraphAntipodes"][ico]]
Out[2]=

Version History

  • 1.0.0 – 17 March 2020

License Information