Implementation [from Brad]
Implementation [from Brad]
Running
Running
In[]:=
AbsoluteTiming[bigGraph=TotalisticAggregationMultiwayGraph[{{1},Complement[Tuples[{1,0,-1},2],{0,0}]},{{0,0},{0,1}},10];]
Out[]=
$Aborted
In[]:=
AbsoluteTiming[notAsBigGraph=TotalisticAggregationMultiwayGraph[{{1},Complement[Tuples[{1,0,-1},2],{0,0}]},{{0,0},{0,1}},6,"Canonicalize"->True];]
Out[]=
{14.4027,Null}
In[]:=
notAsBigGraph
Out[]=
In[]:=
ArrayPlot/@AggregationArrayData[Select[VertexList[notAsBigGraph],Length[#["Ready"]]==0&]]
Out[]=
{}
In[]:=
coarseGrained=VertexReplace[notAsBigGraph,x_:>{Length[x["Ready"]],-Length[x["On"]]}];
In[]:=
Graph[#,VertexCoordinates->Map[#->#&,VertexList[#]]]&[Graph[Union[EdgeList[coarseGrained]]]]
Out[]=
In[]:=
AbsoluteTiming[notAsBigGraph=TotalisticAggregationMultiwayGraph[{{1},Join[IdentityMatrix[2],-IdentityMatrix[2]]},{{0,0},{0,1}},6,"Canonicalize"->True];]
Out[]=
{1.01407,Null}
In[]:=
coarseGrained=VertexReplace[notAsBigGraph,x_:>{Length[x["Ready"]],-Length[x["On"]]}];
In[]:=
Graph[#,VertexCoordinates->Map[#->#&,VertexList[#]]]&[Graph[Union[EdgeList[coarseGrained]]]]
Out[]=
In[]:=
ArrayPlot/@AggregationArrayData[Select[VertexList[notAsBigGraph],Length[#["Ready"]]==0&]]
Out[]=
{}
In[]:=
AbsoluteTiming[notAsBigGraph=TotalisticAggregationMultiwayGraph[{{1},Join[IdentityMatrix[2],-IdentityMatrix[2]]},{{0,0},{0,1}},10,"Canonicalize"->True];]
Out[]=
{164.853,Null}
In[]:=
ArrayPlot/@AggregationArrayData[Select[VertexList[notAsBigGraph],Length[#["Ready"]]==0&]]
Out[]=
{}
In[]:=
coarseGrained=VertexReplace[notAsBigGraph,x_:>{Length[x["Ready"]],-Length[x["On"]]}];
In[]:=
Graph[#,VertexCoordinates->Map[#->#&,VertexList[#]]]&[Graph[Union[EdgeList[coarseGrained]]]]
Out[]=
Monte Carlo Finding of Halt States
Monte Carlo Finding of Halt States
In[]:=
sult=Module[{len=1,data,res=Association[]},Do[len=1;While[UnsameQ[len,0],data=RandomTotalisticAggregation[{{2,5,6,7,8},Complement[Tuples[{1,0,-1},2],{0,0}]},{{0,0},{0,1}},20];len=Length[data[[-1]]["Ready"]];];res[Length[res]]=Last[data],100];res];
In[]:=
ArrayPlot/@Union[AggregationArrayData[Values[sult]]]
Out[]=
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
Another Rule
Another Rule
Distance to common ancestor for any two configurations?