In[]:=
WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{0,0},{0,0}},1]
Out[]=
In[]:=
%["AllExpressions"]
Out[]=
{{0,0},{0,0},{0,0},{0,1},{0,1},{0,1}}
In[]:=
WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{0,0},{0,0}},3,"AllExpressions"]
Out[]=
In[]:=
Length@Catenate[WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{0,0},{0,0}},3,"AllExpressions"]]
Out[]=
52
In[]:=
Catenate@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{0,0},{0,0}},1,"AllExpressions"]
Out[]=
{0,0,0,0,0,0,0,1,0,1,0,1}
In[]:=
rp=RandomPermutation[12]
Out[]=
Cycles[{{1,10},{2,3,11,12,8,5,9,4},{6,7}}]
In[]:=
Permute[{0,0,0,0,0,0,0,1,0,1,0,1},rp]
Out[]=
{1,0,0,0,1,0,0,1,0,0,0,0}
In[]:=
Partition[%,2]
Out[]=
{{1,0},{0,0},{1,0},{0,1},{0,0},{0,0}}
In[]:=
Length@Catenate@%
Out[]=
12
In[]:=
RandomPermutation[12]
Out[]=
Cycles[{{1,5,8,6,11,4,12},{2,9,10,3}}]
In[]:=
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}
Out[]=
In[]:=
WolframModelEvolutionObject[%]
Out[]=
In[]:=
WolframModelPlot[%["FinalState"]]
Out[]=
In[]:=
%361["AllEventsList"]
Out[]=
{{1,{1,2}{3,4,5,6}}}
In[]:=
WolframModelPlot[WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{0,0},{0,0}},1,"FinalState"]]
Out[]=
WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{0,0},{0,0}},1,"FinalState"]
Visualization
Visualization
In[]:=
WolframModelPlot[%,VertexLabelsAutomatic]
Out[]=
In[]:=
gg=Graph[Rule@@@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{0,0},{0,0}},7,"AllExpressions"],GraphLayout"SpringElectricalEmbedding"]
Out[]=
In[]:=
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"]
Out[]=