Basic Examples
Basic Examples
Retrieve the graph:
In[]:=
ResourceData["Power Grid Network"]
Out[]=
Summary properties:
In[]:=
ResourceData["Power Grid Network",All]["Summary"]
Out[]=
Name | Power Grid Network |
VertexCount | 4941 |
EdgeCount | 6594 |
Description | An undirected, unweighted network representing the topology |
ByteCount |
Basic Applications
Basic Applications
Show the most connected vertex:
In[]:=
g=ResourceData["Power Grid Network"];
In[]:=
most=First[Part[VertexList[g],Ordering[DegreeCentrality[g],All,Greater]]]
Out[]=
2682
In[]:=
HighlightGraph[NeighborhoodGraph[g,most,VertexLabelsAutomatic],most,PlotTheme"Web"]
Out[]=