In[]:=
gtest=UndirectedGraph[Rule@@@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},10,"FinalState"]]
Out[]=
In[]:=
MeanDegreeConnectivity[gtest]
Out[]=
0,4,4,,,,,,,,,
2693
531
811
196
1127
265
305
78
61
14
143
32
73
18
41
10
13
3
In[]:=
N[%]
Out[]=
{0.,4.,4.,5.07156,4.13776,4.25283,3.91026,4.35714,4.46875,4.05556,4.1,4.33333}
In[]:=
ListLinePlot[%]
Out[]=
In[]:=
LocalClusteringCoefficient[gtest]
Out[]=
In[]:=
Histogram[%]
Out[]=
In[]:=
Histogram[LocalClusteringCoefficient[UndirectedGraph[Rule@@@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},14,"FinalState"]]]]
In[]:=
MeanClusteringCoefficient[UndirectedGraph[Rule@@@#]]&/@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},14,"StatesList"]
Out[]=
0,,,,,,,,,,,,,,
7
12
3
5
61
105
68
165
19
54
31
100
163
540
35101
120960
17231
55755
256673
895356
198719
680295
888731
3094520
206447179
715314600
6428525797
22329707400
In[]:=
N[%]
Out[]=
{0.,0.583333,0.6,0.580952,0.412121,0.351852,0.31,0.301852,0.290187,0.309049,0.286671,0.292107,0.287195,0.28861,0.287891}
In[]:=
ListLinePlot[%]
Out[]=
In[]:=
GlobalClusteringCoefficient[UndirectedGraph[Rule@@@#]]&/@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},14,"StatesList"]
Out[]=
0,,,,,,,,,,,,,,
3
5
6
11
1
2
3
10
27
97
15
61
28
117
153
653
303
1219
105
454
246
1043
894
3869
366
1585
3015
13129
In[]:=
N[%]
Out[]=
{0.,0.6,0.545455,0.5,0.3,0.278351,0.245902,0.239316,0.234303,0.248564,0.231278,0.235858,0.231067,0.230915,0.229644}
In[]:=
ListLinePlot[%]
Out[]=
In[]:=
GraphReciprocity[Rule@@@#]&/@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},14,"StatesList"]
Out[]=
{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}
In[]:=
GraphAssortativity[UndirectedGraph[Rule@@@#]]&/@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},14,"StatesList"]
Out[]=
-1,-,-,-,-,-,-,-,-,-,-,-,-,-,-
5
7
5
7
7
18
40
113
289
1663
1289
7503
143
753
22021
112587
88061
393889
114701
742690
477748
2637461
715321
4796999
3456607
22737501
3400486
23750793
In[]:=
N[%]
Out[]=
{-1.,-0.714286,-0.714286,-0.388889,-0.353982,-0.173782,-0.171798,-0.189907,-0.195591,-0.223568,-0.15444,-0.181139,-0.149118,-0.152022,-0.143174}
In[]:=
ListLinePlot[%]
Out[]=
