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[]:=
With{bgs=ResourceFunction["BranchialGraphs"][TotalisticAggregationMultiwayGraph[{Range[4],Join[IdentityMatrix[2],-IdentityMatrix[2]]},{{0,0}},3]]},MapThread#1->GraphAddVertexArrayPlots[Range[4]][#2,Padding->#5],EdgeStyle->Directive,Opacity[0.4`],PlotRangePadding->#3,VertexSize->#4&,{Keys[bgs],Values[bgs],{{{3/4,1},{3/4,1}},{{3/4,1},{3/4,1}},{{1/2,1/2},{1/2,1/2}},{{1/2,1/2},{1/2,1/2}}},{1/2,1/2,2,3},{1,1,0,0}}
Out[]=
1
,2
,3
,4
In[]:=
ResourceFunction["BranchialGraphs"][TotalisticAggregationMultiwayGraph[{Range[4],Join[IdentityMatrix[2],-IdentityMatrix[2]]},{{0,0}},5]]
Out[]=
1
,2
,3
,4
,5
,6Graph
In[]:=
GraphLast[ResourceFunction["BranchialGraphs"][TotalisticAggregationMultiwayGraph[{Range[4],Join[IdentityMatrix[2],-IdentityMatrix[2]]},{{0,0}},4]]],EdgeStyle->Directive,Opacity[0.4`]
Out[]=
In[]:=
With{bgs=ResourceFunction["BranchialGraphs"][TotalisticAggregationMultiwayGraph[{{2},DeleteCases[Tuples[{1,0,-1},2],{0,0}]},{{0,-1},{0,0},{0,1},{1,0}},4,"Canonicalize"->False]]},MapThread#1->GraphAddVertexArrayPlots[{{2}}][#2,Padding->#5],EdgeStyle->Directive,Opacity[0.4`],PlotRangePadding->#3,VertexSize->#4&,{Keys[bgs],Values[bgs],{{{3/4,1},{3/4,1}},{{3/4,1},{3/4,1}},{{1/2,1/2},{1/2,1/2}},{{1/2,1/2},{1/2,1/2}}},{1/2,1/2,2,3},{1,1,0,0}}
In[]:=
ResourceFunction["BranchialGraphs"][TotalisticAggregationMultiwayGraph[{{2},DeleteCases[Tuples[{1,0,-1},2],{0,0}]},{{0,-1},{0,0},{0,1},{1,0}},7,"Canonicalize"->False]]
Out[]=
1
,2
,3
,4
,5
,6
,7
,8
In[]:=
ConnectedGraphComponents
Out[]=
,
,
,
,