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[]:=
gx=Graph[Rule@@@WolframModel[{{0,1},{0,2},{0,3}}{{1,2},{2,3},{3,4},{4,1},{4,3}},Table[0,3,2],20,"FinalState"]]
Out[]=
In[]:=
GraphDiameter[gx]
Out[]=
∞
In[]:=
GraphDiameter[UndirectedGraph[gx]]
Out[]=
15
In[]:=
gxall=Graph[Rule@@@#]&/@WolframModel[{{0,1},{0,2},{0,3}}{{1,2},{2,3},{3,4},{4,1},{4,3}},Table[0,3,2],20,"StatesList"];
In[]:=
GraphDiameter[UndirectedGraph[#]]&/@gxall
Out[]=
{0,1,1,2,2,3,3,4,4,6,7,7,9,9,11,11,13,11,12,13,15}
In[]:=
ListLinePlot[%]
Out[]=
In[]:=
LoopFreeGraphQ[gx]
Out[]=
False
In[]:=
GraphHub[gx]
Out[]=
{34}
In[]:=
GraphHub[UndirectedGraph[gx]]
Out[]=
{6,34}
In[]:=
GraphDensity[gx]//N
Out[]=
0.00379142
In[]:=
GraphDensity[UndirectedGraph[gx]]//N
Out[]=
0.00637335
In[]:=
N[GraphDensity[UndirectedGraph[#]]]&/@gxall
Out[]=
GraphDensity
,1.,1.,0.833333,0.533333,0.464286,0.327273,0.238095,0.187135,0.144928,0.106061,0.0786268,0.0614035,0.042624,0.0337374,0.0259596,0.0197454,0.0146456,0.0111468,0.00827533,0.00637335
In[]:=
ListLinePlot[Rest[%]]
Out[]=
In[]:=
CommunityGraphPlot[UndirectedGraph[gx]]
Out[]=
In[]:=
CommunityGraphPlot[UndirectedGraph[#]]&/@gxall
Out[]=
In[]:=
GraphLinkEfficiency[UndirectedGraph[#]]&/@gxall//N
Out[]=
GraphLinkEfficiency
,0.,0.666667,0.766667,0.816667,0.876374,0.90202,0.918857,0.92818,0.93442,0.947714,0.955079,0.962636,0.968958,0.974311,0.977514,0.982455,0.986334,0.9892,0.991221,0.992923
In[]:=
GraphLinkEfficiency[#]&/@gxall//N