WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{0,0},{0,0}},1]
In[]:=
Out[]=
%["AllExpressions"]
In[]:=
{{0,0},{0,0},{0,0},{0,1},{0,1},{0,1}}
Out[]=
WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{0,0},{0,0}},3,"AllExpressions"]
In[]:=
Out[]=
Length@Catenate[WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{0,0},{0,0}},3,"AllExpressions"]]
In[]:=
52
Out[]=
Catenate@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{0,0},{0,0}},1,"AllExpressions"]
In[]:=
{0,0,0,0,0,0,0,1,0,1,0,1}
Out[]=
rp=RandomPermutation[12]
In[]:=
Cycles[{{1,10},{2,3,11,12,8,5,9,4},{6,7}}]
Out[]=
Permute[{0,0,0,0,0,0,0,1,0,1,0,1},rp]
In[]:=
{1,0,0,0,1,0,0,1,0,0,0,0}
Out[]=
Partition[%,2]
In[]:=
{{1,0},{0,0},{1,0},{0,1},{0,0},{0,0}}
Out[]=
Length@Catenate@%
In[]:=
12
Out[]=
RandomPermutation[12]
In[]:=
Cycles[{{1,5,8,6,11,4,12},{2,9,10,3}}]
Out[]=
WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{0,0},{0,0}},1][[1]]
In[]:=
SetReplace`PackageScope`$creatorEvents{0,0,1,1,1,1},SetReplace`PackageScope`$destroyerEvents{1,1,∞,∞,∞,∞},SetReplace`PackageScope`$generations{0,0,1,1,1,1},SetReplace`PackageScope`$atomLists{{1,0},{0,0},{1,0},{0,1},{0,0},{0,0}},SetReplace`PackageScope`$rules{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},SetReplace`PackageScope`$maxCompleteGeneration1,SetReplace`PackageScope`$terminationReasonSetReplace`PackageScope`$maxGenerationsLocal,SetReplace`PackageScope`$eventRuleIDs{1}
In[]:=
Out[]=
WolframModelEvolutionObject[%]
In[]:=
Out[]=
WolframModelPlot[%["FinalState"]]
In[]:=
Out[]=
%361["AllEventsList"]
In[]:=
{{1,{1,2}{3,4,5,6}}}
Out[]=
WolframModelPlot[WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{0,0},{0,0}},1,"FinalState"]]
In[]:=
Out[]=
WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{0,0},{0,0}},1,"FinalState"]
Visualization
Visualization
WolframModelPlot[%,VertexLabelsAutomatic]
In[]:=
Out[]=
gg=Graph[Rule@@@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{0,0},{0,0}},7,"AllExpressions"],GraphLayout"SpringElectricalEmbedding"]
In[]:=
Out[]=
verts=Thread[VertexList[gg]->GraphEmbedding[gg]];
In[]:=
Graph[Rule@@@#,VertexCoordinatesverts]&/@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{0,0},{0,0}},7,"StatesList"]
In[]:=
Out[]=
CoordinateBounds[Last/@verts]
In[]:=
{{0.,6.1998},{0.,5.50062}}
Out[]=
ListAnimate[Show[#,PlotRange->CoordinateBounds[Last/@verts]]&/@%345]
In[]:=
Out[]=
Graph
,VertexCoordinatesAutomatic,GraphLayout"SpringElectricalEmbedding"
In[]:=
Out[]=