In[]:=
gtest=UndirectedGraph[Rule@@@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},13,"FinalState"]];
In[]:=
GraphAntipodes[gtest]
Out[]=
{233,1921}
In[]:=
HighlightGraph[gtest,GraphUnion@@(NeighborhoodGraph[gtest,#,3]&/@FindShortestPath[gtest,233,1921])]
Out[]=
In[]:=
HighlightGraph[gtest,Style[GraphUnion@@(NeighborhoodGraph[gtest,#,3]&/@FindShortestPath[gtest,200,900]),Directive[Thick,Red]]]
Out[]=
In[]:=
ParallelMapMonitored[Function[r,VertexCount[GraphUnion@@(NeighborhoodGraph[gtest,#,r]&/@FindShortestPath[gtest,100,1000])]],Range[10]]
Out[]=
{71,133,215,307,396,523,671,819,974,1152}
In[]:=
ParallelMapMonitored[Function[r,VertexCount[GraphUnion@@(NeighborhoodGraph[gtest,#,r]&/@FindShortestPath[gtest,200,900])]],Range[10]]
Out[]=
{46,91,155,236,310,415,540,670,836,1049}
In[]:=
ListLinePlot[{%254,%255}]
Out[]=
In[]:=
ListLinePlot[%254/%255]
Out[]=