In[]:=
b25=BuckyballGraph[25,"Embedded"];
In[]:=
VertexCount[b25]
Out[]=
13520
In[]:=
GraphAntipodes[b25]
Out[]=
{1,13520}
In[]:=
FindShortestPath[b25,1,13250]
Out[]=
In[]:=
NeighborhoodGraph[b25,1,3,VertexLabelsAutomatic]
Out[]=
In[]:=
NeighborhoodGraph[b25,6786,3,VertexLabelsAutomatic]
Out[]=
In[]:=
ShellVertices[g_,v_,r_]:=Complement[VertexList[NeighborhoodGraph[g,v,r]],VertexList[NeighborhoodGraph[g,v,r-1]]]
In[]:=
ShellVertices[b25,1,8]
Out[]=
{56,63,64,79,80,83,84,91,92,95,96,101,102,105,106,109,115,116,119,120,127,128,143,144}
In[]:=
ShellVertices[b25,6786,8]
Out[]=
{5410,5556,5592,5696,5756,5874,5942,6020,6104,6374,6458,6778,6794,7066,7150,7420,7504,7582,7650,7768,7828,7932,7968,8114}
In[]:=
Geodesics[b25,{{1,6786},{56,5410}}]
In[]:=
spx=MeshConnectivityGraph[DiscretizeGraphics[Sphere[],MaxCellMeasure{"Area".002}]]
Out[]=
In[]:=
spx=IndexGraph[spx];
In[]:=
GraphAntipodes[spx]
Out[]=
{1,2}
In[]:=
ShellVertices[spx,1,8]
Out[]=
{60,62,63,68,89,521,536,551,581,596,1001,1016,1031,1061,1076,1481,1496,1511,1541,1556,2921,2936,2951,2981,2996,3401,3416,3431,3461,3476,4841,4856,4871,4901,4916,5321,5336,5351,5381,5396}
In[]:=
ShellVertices[spx,2,8]
Out[]=
{58,87,100,101,102,512,611,620,629,638,992,1091,1100,1109,1118,1472,1571,1580,1589,1598,2912,3011,3020,3029,3038,3392,3491,3500,3509,3518,4832,4931,4940,4949,4958,5312,5411,5420,5429,5438}
In[]:=
Geodesics[spx,{{1,2},{60,58}}]
Out[]=
In[]:=
GraphPlot3D[%]
Out[]=