In[]:=
Length[arules]
Out[]=
79359764
In[]:=
cres=%241;
In[]:=
Length[cres]
Out[]=
1358
In[]:=
gentests=Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxGenerations"&];
In[]:=
Length[gentests]
Out[]=
68
In[]:=
(HypergraphAdjacencyMatrix[#FinalState]//MatrixPlot)&/@Take[gentests,5]
Out[]=
In[]:=
#FinalState&/@Take[gentests,2]
Out[]=
In[]:=
First[%]
Out[]=
In[]:=
Mean[Max[Abs[Differences[#]]]&/@%395]//N
Out[]=
1.9703
In[]:=
Table[iN@Mean[Max[Abs[Differences[#]]]&/@gentests[[i]]["FinalState"]],{i,Length[gentests]}]
Out[]=
In[]:=
Table[iN@Median[Max[Abs[Differences[#]]]&/@gentests[[i]]["FinalState"]],{i,Length[gentests]}]
Out[]=
In[]:=
ParallelTable[HypergraphPlot[gentests[[i]]["FinalState"]]N@Mean[Max[Abs[Differences[#]]]&/@gentests[[i]]["FinalState"]],{i,30}]
Out[]=
In[]:=
ParallelTable[HypergraphPlot[gentests[[i]]["FinalState"]]Median[Max[Abs[Differences[#]]]&/@gentests[[i]]["FinalState"]],{i,30}]
Out[]=
In[]:=
WolframModel[{{1,2,3},{1,4,5}}{{3,3,6},{6,6,5},{4,5,6}},{{0,0,0},{0,0,0}},100,"FinalState"]
Out[]=
In[]:=
HypergraphAdjacencyMatrix[%]//MatrixPlot
Out[]=
Pick 6 as threshold....
Basic checker:
Basic checker:
Got stuck:
Got stuck:
Attempted to interrupt.........