​
In[]:=
b7=BuckyballGraph[7,"Embedded"]
Out[]=
In[]:=
GraphAntipodes[b7]
Out[]=
{1,1280}
In[]:=
NeighborhoodGraph[b7,1,3,VertexLabelsAutomatic]
Out[]=
In[]:=
NeighborhoodGraph[b7,1280,3,VertexLabelsAutomatic]
Out[]=
In[]:=
Geodesics[b7,{{1,1280}}]
Out[]=
In[]:=
Geodesics[b7,{{1,1280},{14,1268}}]
Out[]=
In[]:=
Geodesics[BuckyballGraph[8,"Embedded"],{{1,1000}}]
Out[]=
In[]:=
b10=BuckyballGraph[10,"Embedded"];
In[]:=
Geodesics[b10,{{1,1000},{48,906}}]
Out[]=