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[]:=
Graph[HexagonalGridGraph[{6,5}],VertexLabelsAutomatic]
Out[]=
In[]:=
Graph[EdgeAdd[EdgeDelete[NeighborhoodGraph[IndexGraph@ResourceFunction["HexagonalGridGraph"][{6,5}],{42,48,54,53,47,41},4],{3029,4241}],{3041,4229}],EdgeStyleResourceFunction["WolframPhysicsProjectStyleData"]["SpatialGraph","EdgeLineStyle"],VertexStyleResourceFunction["WolframPhysicsProjectStyleData"]["SpatialGraph","VertexStyle"]]
Out[]=
In[]:=
Graph[EdgeAdd[EdgeDelete[NeighborhoodGraph[IndexGraph@ResourceFunction["HexagonalGridGraph"][{6,5}],{42,48,54,53,47,41},4],{3029,4241}],{3041,4229}],VertexSize{Small,Alternatives@@{30,36,42,41,35,29}Large},EdgeStyle{ResourceFunction["WolframPhysicsProjectStyleData"]["SpatialGraph","EdgeLineStyle"],Alternatives@@{3024,2418,1817,1723,2329,2935,3534,3440,4046,4652,5258,5859,5965,6566,6660,6061,6155,5549,4954,4943,4337,3736,3630,3041,4229,3642,3541,4147,4753,5354,5448,4842}Directive[AbsoluteThickness[2.5],Darker[Red,.2]]},VertexStyleResourceFunction["WolframPhysicsProjectStyleData"]["SpatialGraph","VertexStyle"]]
Out[]=
In[]:=
Graph[HexagonalGridGraph[{14,14}],VertexLabelsAutomatic]
Out[]=
In[]:=
p1=Graph[EdgeAdd[EdgeDelete[NeighborhoodGraph[Graph[HexagonalGridGraph[{14,14}]],{233,248,249,234,219,218},8],{191190,221220}],{191220,221190}],VertexSize{Small,Alternatives@@{191,206,221,220,205,190}Large},EdgeStyle{Black,Alternatives@@{191220,221190,191206,206221,220205,205190,190175,175160,160161,161176,176191,206207,207222,222237,237252,252267,267266,266281,281280,280265,265264,264249,249234,234219,219204,204205,221236,236251,251250,250235,235220}Directive[AbsoluteThickness[3],Black]},VertexStyleBlack]
Out[]=
In[]:=
With[{p1=Graph[EdgeAdd[EdgeDelete[NeighborhoodGraph[Graph[HexagonalGridGraph[{14,14}]],{233,248,249,234,219,218},8],{191190,221220}],{191220,221190}],VertexSize{Small,Alternatives@@{191,206,221,220,205,190}Large},EdgeStyle{Black,Alternatives@@{191220,221190,191206,206221,220205,205190,190175,175160,160161,161176,176191,206207,207222,222237,237252,252267,267266,266281,281280,280265,265264,264249,249234,234219,219204,204205,221236,236251,251250,250235,235220}Directive[AbsoluteThickness[3],Black]},VertexStyleBlack]},Graph[EdgeAdd[VertexDelete[p1,{247,262}],{263246,232277}],VertexSize{Small,263|246|232|277|216|293Large},EdgeStyle{Black,Alternatives@@{263246,232277,232233,233248,248263,277276,276261,261246,293278,278263,293292,292277,246231,231216,216217,217232,293308,308323,323322,322307,307306,306291,291290,290275,275260,260245,245230,230215,215200,200201,201216}Directive[AbsoluteThickness[3],Black]}]]
Out[]=