In[]:=
gg=GridGraph[{10,10}]
Out[]=
In[]:=
GraphCenter[gg]
Out[]=
{45,46,55,56}
In[]:=
NeighborhoodGraph[gg,46,4]
Out[]=
In[]:=
GraphAntipodes[%]
Out[]=
{6,77}
In[]:=
HighlightGraph[%7,FindShortestPath[%7,6,77]]
Out[]=
In[]:=
GraphPeriphery
Out[]=
{6,15,17,24,28,33,39,42,50,53,59,64,68,75,77,86}
In[]:=
AllGeodesics[g_]:=Module[{m=GraphDistanceMatrix[g],v=VertexList[g]},Map[v[[#]]&,Position[m,Max[m]],{2}]]
In[]:=
AllGeodesics
Out[]=
In[]:=
HighlightGraph
,FindShortestPath
,#1,#2&@@@Take[%15,6]
Out[]=
In[]:=
FindShortestPath[%7,6,77]
Out[]=
{6,16,17,27,37,47,57,67,77}
In[]:=
GraphDistance[%7,86,%]
Out[]=
In[]:=
Subgraph
,{6,16,17,27,37,47,57,67,77}
Out[]=
In[]:=
GraphDistance
,86,
Out[]=
In[]:=
GraphLineDistance[g_,start_,line_]:=Min[GraphDistance[g,start,#]&/@line]
In[]:=
GraphLineDistance
,86,{6,16,17,27,37,47,57,67,77}