You are using a browser not supported by the Wolfram Cloud
Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.
I understand and wish to continue anyway »
WOLFRAM NOTEBOOK
In[]:=
g0=HexagonalGridGraph[{10,10}];
In[]:=
RandomChoice[EdgeList[g0],30]
Out[]=
{226231,5970,4352,94105,132143,6980,115126,173184,177187,210217,112123,154165,3442,217223,184185,5152,106117,120131,104115,100111,12,4858,3233,193202,129140,2229,184194,2627,177187,170171}
In[]:=
Rule@@@%
Out[]=
{226231,5970,4352,94105,132143,6980,115126,173184,177187,210217,112123,154165,3442,217223,184185,5152,106117,120131,104115,100111,12,4858,3233,193202,129140,2229,184194,2627,177187,170171}
In[]:=
Graph[EdgeList[g0]/.%]
Out[]=
In[]:=
Graph3D[%,GraphLayout"SpringElectricalEmbedding",VertexCoordinatesAutomatic]
Out[]=