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[]:=
aspectRatioGraph[ar_]:=Module[{lts,fitness},lts=$LifetimeData[2,2,"Symmetric"];fitness=changeFitness[{2,2},lts,Function[Abs[Subtract[Divide@@Dimensions[DeleteCases[#,{0...}]],ar]]]];EvolutionaryMultiwayGraph[fitness,GraphLayout->"LayeredDigraphEmbedding"]]
In[]:=
GroupBy[#->aspectRatioGraph[#/10]&/@Range[0,21],Last->First]
Out[]=
{0,1,2,3,4,5,6},
{7},
{8},
{9},
{10},
{11},
{12},
{13},
{14,15,16,17,18,19,20,21}
In[]:=
KeyValueMapLabeled[addVertexFigures[#,$LifetimeData[2,2,"Symmetric"],{2,2},"VertexFigures"->1,VertexSize->.3,ImageSize->{Automatic,300}],#2]&,
Out[]=
,
,
,
,
,
,
,
,
{0,1,2,3,4,5,6} |
{7} |
{8} |
{9} |
{10} |
{11} |
{12} |
{13} |
{14,15,16,17,18,19,20,21} |
In[]:=
Take[$LifetimeData[2,2,"Symmetric"],5]
Out[]=
{0,65815}0,{276,285295007}1,{1048868,156317055}2,{1049892,3507586495}2,{139469092,424769023}3
In[]:=
%88
Out[]=
{0,1,2,3,4,5,6,7},
{8},
{9},
{10},
{11},
{12},
{13},
{14},
{15},
{16},
{17},
{18,19,20,21}
Fixing mistake in fitness function
Fixing mistake in fitness function