Wolfram Cloud Page

WOLFRAM NOTEBOOK

In[]:=

maca=ParallelTable[n->With[{g=With[{cut=15},With[{g1=EvolutionaryMultiwayGraph[overlapFitness[n,cut],DistanceFunction->Function[BinaryMutationDistance[#1,#2,"Symmetric"->False]]]},addVertexFigures[VertexOutComponentGraph[g1,Select[VertexList[g1],MemberQ[#,{0,23}]&]],Association[Thread[Catenate[VertexList[g1]]->cut]],{2,1},AspectRatio->1,VertexSize->1/4,PerformanceGoal->"Quality",EdgeStyle->Gray]]]},Select[VertexList[g],VertexOutDegree[g,#]==0&][[All,1,1]]],{n,0,255,2}];

KernelObject

:Timeout for theta.wolfram.com//usr/local/bin/wolfram 5. Received only 0 of 24 connections.

In[]:=

maca2

Out[]=

{0{0},2{2},4{4},6{6},14{14},16{16},18{18},20{20},22{126,22,190,246},28{28},30{86,30,190},50{50},54{246,190,54},60{150,60},62{62,182,222},70{70},78{78},84{84},86{30,86,246},92{92},94{94},102{150,102},110{150,110},118{118,182,222},124{150,124},126{22,126},150{30,86,150},158{158},182{182,222},188{188},190{190},206{206,182},214{214},220{220,182},222{222,182},230{230},246{246}}

In[]:=

Length[maca2]

Out[]=

In[]:=

Parallelize@KeyValueMap[{n,ns}|->With[{cut=15},With[{g1=EvolutionaryMultiwayGraph[overlapFitness[n,cut],DistanceFunction->Function[BinaryMutationDistance[#1,#2,"Symmetric"->False]]]},With[{g=VertexInComponentGraph[VertexOutComponentGraph[g1,Select[VertexList[g1],MemberQ[#,{0,23}]&]],Select[VertexList[g1],MemberQ[#,{Alternatives@@ns,_}]&]]},Graph[g,VertexLabels->Prepend[((#->#[[1,1]])&/@Select[VertexList[g],VertexOutDegree[g,#]==0&]),{{0,23}}->0],GraphLayout->"LayeredDigraphEmbedding"]]]],Association@maca2]

Out[]=





In[]:=

Parallelize@KeyValueMap[{n,ns}|->Framed[With[{cut=15},With[{g1=EvolutionaryMultiwayGraph[overlapFitness[n,cut],DistanceFunction->Function[BinaryMutationDistance[#1,#2,"Symmetric"->False]]]},With[{g=VertexInComponentGraph[VertexOutComponentGraph[g1,Select[VertexList[g1],MemberQ[#,{0,23}]&]],Select[VertexList[g1],MemberQ[#,{Alternatives@@ns,_}]&]]},Graph[g,VertexLabels->Prepend[((#->#[[1,1]])&/@Select[VertexList[g],VertexOutDegree[g,#]==0&]),{{0,23}}->0],GraphLayout->"LayeredDigraphEmbedding",EdgeStyle->Gray,ImageSize->{Automatic,200}]]]],FrameStyle->LightGray],KeyTake[Association@maca2,{16,18,22,28,30,50,54,60}]]

Out[]=

