WOLFRAM NOTEBOOK

In[]:=
addVertexFigures[Module[{graph,vwr2k2Sym,ewr2k2Sym},​​graph=EvolutionaryMultiwayGraph[​​$LifetimeData[2,2,"Symmetric"],​​GraphLayout->"LayeredDigraphEmbedding",​​"DistanceFunction"->Function[​​BinaryMutationDistance[#1,#2]],​​AspectRatio->1];​​vwr2k2Sym=VertexMultiplicity[graph,{2,2}];​​ewr2k2Sym=EdgeMultiplicity[graph,{2,2}];​​Graph[graph,AspectRatio->2/3,​​VertexSize->{x_:>2Log[65536,vwr2k2Sym[x]]/2},​​VertexStyle->Directive[LightGray,​​EdgeForm[Directive[Gray,Opacity[.5]]]],​​EdgeStyle->{x_:>Directive[Gray,​​Arrowheads[N@Log[2048,ewr2k2Sym[x]]/30],​​Thickness[Log[2048,ewr2k2Sym[x]]/100]]}]],$LifetimeData[2,2,"Symmetric"],{2,2}​​]
Out[]=
In[]:=
EdgeList[%]
Out[]=
In[]:=
ResourceFunction["BranchialGraphs"]
Out[]=
1
,2
,3
,4
,5
,6
,7
,8
,9
In[]:=
ResourceFunction["BranchialGraphs"]
Out[]=
1
,2
,3
,4
,5
,6

Morphospace

Reversed Multiway Graph

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.