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
TransitivityTest[g_]:=Position[GraphDistanceMatrix[g],1]
{{a,b},{b,c},{a,c}}
In[]:=
GraphDistanceMatrix
Out[]=
In[]:=
LengthFindClique
,{3},All
Out[]=
120
In[]:=
BinomialVertexCount
,3
Out[]=
374660
In[]:=
LocalClusteringCoefficient
Out[]=
In[]:=
Histogram[%]
Out[]=
In[]:=
MultiwaySystem[{"A""AB","B""A"},"A",8,"BranchialGraphStructure"]
Out[]=
In[]:=
LocalClusteringCoefficient[%]
Out[]=
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,1
34
45
17
26
5
8
3
5
5
8
88
153
3
5
9
13
5
8
5
8
17
26
58
91
5
9
82
153
73
120
23
42
7
12
83
153
18
35
23
42
4
7
83
153
82
153
15
22
73
120
3
5
73
120
5
9
3
5
58
91
3
5
73
120
15
22
In[]:=
Histogram[%]
Out[]=
In[]:=
FindClique
,{3},All
Out[]=
{}
In[]:=
GraphDistanceMatrix
Out[]=
In[]:=
GlobalClusteringCoefficient
Out[]=
2427
4102
In[]:=
N[%]
Out[]=
0.591663
In[]:=
MultiwaySystem[{"""A","""B"},"",6,"BranchialGraph"]//GlobalClusteringCoefficient
Out[]=
796
1537
In[]:=
N[%]
Out[]=
0.517892
In[]:=
First/@Gather[ParallelMapMonitored[Catch[Module[{u},Do[u=MultiwaySystem[#,"A",t,"BranchialGraphStructure"];If[VertexCount[u]>150||EdgeCount[u]>150,Throw[u]],{t,9}];u]]#&,Catenate[allrules]],IsomorphicGraphQ[First[#],First[#2]]&]
[[ Can look at global clustering coefficient
Global clustering coefficients seem to gradually decrease with size....
Global clustering coefficients seem to gradually decrease with size....
Ball sizes
Ball sizes