WOLFRAM NOTEBOOK

Eigenvalues etc.

In[]:=
gg=Graph[Rule@@@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},12,"FinalState"]]
Out[]=
In[]:=
am=AdjacencyMatrix[UndirectedGraph[%]];
In[]:=
Eigenvectors[N[am],1]
Out[]=
In[]:=
Histogram[First[%]]
Out[]=
In[]:=
ggu=UndirectedGraph[gg];
In[]:=
ec=EigenvectorCentrality[ggu];
In[]:=
Graph[ggu,VertexSizeThread[VertexList[ggu]30Rescale[ec]],PlotTheme"Default"]
Out[]=

Vertex degrees:

<ran out of time....>

Wolfram Cloud

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 »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.