Setting up parallel transport
Setting up parallel transport
In[]:=
Geodesics[b7,{{1,1000}}]
Out[]=
In[]:=
ShellVertices[g_,v_,r_]:=Complement[VertexList[NeighborhoodGraph[g,v,r]],VertexList[NeighborhoodGraph[g,v,r-1]]]
In[]:=
ShellVertices[b7,1,4]
Out[]=
{8,15,16,23,24,25,26,29,30,41,51,52}
In[]:=
ShellVertices[b7,1000,4]
Out[]=
{828,842,844,906,916,980,990,1050,1060,1112,1116,1118}
In[]:=
GraphDistance[b7,8,#]&/@%
Out[]=
{27,27,27,29,29,30,31,32,33,34,35,35}
In[]:=
Geodesics[b7,{{1,1000},{8,828}}]
Out[]=
