In[]:=
ggsam=HypergraphToGraph[WolframModel[{{1,2,3},{4,5,6},{1,4}}{{2,7,8},{3,9,10},{5,11,12},{6,13,14},{13,8},{7,10},{9,12},{11,14}},{{0,0},{0,0},{0,0},{0,0,0},{0,0,0}},7,"FinalState"]]
Out[]=
In[]:=
FindShortestPathUndirectedGraph
,249,754
Out[]=
{249,514,519,264,261,569,572,262,259,590,587,318,315,613,616,316,313,674,679,360,357,825,828,358,355,886,883,462,459,877,880,460,457,914,919,472,469,993,996,470,467,910,907,406,403,925,928,404,401,754}
In[]:=
HighlightGraphUndirectedGraph
,PathGraph[{249,514,519,264,261,569,572,262,259,590,587,318,315,613,616,316,313,674,679,360,357,825,828,358,355,886,883,462,459,877,880,460,457,914,919,472,469,993,996,470,467,910,907,406,403,925,928,404,401,754}],VertexStyleYellow,PlotTheme"Default"
Out[]=
In[]:=
gm=UndirectedGraph[Rule@@@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},15,"FinalState"]];
In[]:=
RandomChoice[VertexList[gm],2]
Out[]=
{2217,2176}
In[]:=
GraphPlot[HighlightGraph[Graph[gm],PathGraph[FindShortestPath[Graph[gm],1000,2000]]]]
Out[]=
In[]:=
GraphPlot3D[HighlightGraph[Graph[gm],PathGraph[FindShortestPath[Graph[gm],1000,2000]]]]
Out[]=
In[]:=
GraphPlot3D[HighlightGraph[Graph[gm],NeighborhoodGraph[Graph[gm],1000,10]]]
Out[]=