WOLFRAM NOTEBOOK

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[]=
2
4
6
8
10
12
1
2
3
4
5
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[]=
2
4
6
8
10
12
14
0.1
0.2
0.3
0.4
0.5
0.6
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[]=
2
4
6
8
10
12
14
0.1
0.2
0.3
0.4
0.5
0.6
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[]=
2
4
6
8
10
12
14
-1.0
-0.8
-0.6
-0.4
-0.2
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.