RuleBank[sig_]:=RuleBank[sig]=EnumerateWolframModelRules[sig]
In[]:=
{RandomChoice[RuleBank[{{1,2}}{{2,2}}]],RandomChoice[RuleBank[{{2,2}}{{1,2}}]]}
In[]:=
{{{1,2}}{{3,2},{2,4}},{{1,2},{3,2}}{{4,1}}}
Out[]=
RuleBank[{{2,2}}{{3,2}}];
In[]:=
Select[ParallelMapMonitored[WolframModelTest[#,{{1,1}}]&,Table[{RandomChoice[RuleBank[{{1,2}}{{2,2}}]],RandomChoice[RuleBank[{{2,2}}{{1,2}}]]},100]],AnyTrue[Differences[#Sizes],#≤0&]&]
In[]:=
Out[]=
MakePictures2[%%]
In[]:=
Out[]=
Select[ParallelMapMonitored[WolframModelTest[#,{{1,1}}]&,Table[{RandomChoice[RuleBank[{{1,2}}{{2,2}}]],RandomChoice[RuleBank[{{2,2}}{{1,2}}]]},1000]],AnyTrue[Differences[#Sizes],#≤0&]&];
In[]:=
MakePictures2[%137]
In[]:=
Out[]=
Select[ParallelMapMonitored[WolframModelTest[#,{{1,1}}]&,Table[{RandomChoice[RuleBank[{{1,2}}{{2,2}}]],RandomChoice[RuleBank[{{2,2}}{{1,2}}]]},1000]],(AnyTrue[Differences[#Sizes],#<0&]&&ConnectedHypergraphQ[#FinalState])&];
In[]:=
MakePictures2[First/@GatherBy[%,#FinalState&]]
In[]:=
Out[]=
Select[ParallelMapMonitored[WolframModelTest[#,{{1,1}}]&,Table[{RandomChoice[RuleBank[{{1,2}}{{2,2}}]],RandomChoice[RuleBank[{{2,2}}{{1,2}}]]},5000]],(AnyTrue[Differences[#Sizes],#<0&]&&ConnectedHypergraphQ[#FinalState])&];
In[]:=
MakePictures2[First/@GatherBy[%,#FinalState&]]
In[]:=
Out[]=
Select[ParallelMapMonitored[WolframModelTest[#,{{1,1}}]&,Table[{RandomChoice[RuleBank[{{1,2}}{{3,2}}]],RandomChoice[RuleBank[{{2,2}}{{1,2}}]]},5000]],(AnyTrue[Differences[#Sizes],#<0&]&&ConnectedHypergraphQ[#FinalState])&];
In[]:=
MakePictures2[First/@GatherBy[%,#FinalState&]]
In[]:=
Out[]=
Select[ParallelMapMonitored[WolframModelTest[#,{{1,1}}]&,Table[{RandomChoice[RuleBank[{{2,2}}{{3,2}}]],RandomChoice[RuleBank[{{2,2}}{{1,2}}]]},1000]],(AnyTrue[Differences[#Sizes],#<0&]&&ConnectedHypergraphQ[#FinalState])&];
In[]:=
MakePictures2[First/@GatherBy[%147,#FinalState&]]
In[]:=
{},
Out[]=
Select[ParallelMapMonitored[WolframModelTest[#,{{1,1},{1,1}}]&,Table[{RandomChoice[RuleBank[{{2,2}}{{3,2}}]],RandomChoice[RuleBank[{{2,2}}{{1,2}}]]},1000]],(AnyTrue[Differences[#Sizes],#<0&]&&ConnectedHypergraphQ[#FinalState])&];
In[]:=
MakePictures2[First/@GatherBy[%,#FinalState&]]
In[]:=
Out[]=
RulePlot[WolframModel[{{{1,2},{3,2}}{{4,2},{4,2},{2,4}},{{1,2},{2,3}}{{1,2}}}]]
In[]:=
Out[]=
EvolutionPicture2[{{{1,2},{3,2}}{{4,2},{4,2},{2,4}},{{1,2},{2,3}}{{1,2}}},{{1,1},{1,1}},6]
In[]:=
Out[]=
EvolutionPicture2[{{{1,2},{3,2}}{{4,2},{4,2},{2,1}},{{1,2},{2,3}}{{3,2}}},{{1,1},{1,1}},10]
In[]:=
Out[]=
WolframModel[{{{1,2},{3,2}}{{4,2},{4,2},{2,1}},{{1,2},{2,3}}{{3,2}}},{{1,1},{1,1}},30,"LayeredCausalGraph"]
In[]:=
Out[]=
Select[ParallelMapMonitored[WolframModelTest[#,{{1,1},{1,1}}]&,Table[{RandomChoice[RuleBank[{{2,2}}{{3,2}}]],RandomChoice[RuleBank[{{2,2}}{{1,2}}]]},1000]],(AnyTrue[Differences[#Sizes],#<0&]&&ConnectedHypergraphQ[#FinalState])&];
In[]:=
MakePictures2[First/@GatherBy[%,#FinalState&]]
In[]:=
Out[]=
Additional initial condition:
Select[ParallelMapMonitored[WolframModelTest[#,{{1,2},{2,1},{1,1},{2,2}}]&,Table[{RandomChoice[RuleBank[{{2,2}}{{3,2}}]],RandomChoice[RuleBank[{{2,2}}{{1,2}}]]},1000]],(AnyTrue[Differences[#Sizes],#<0&]&&ConnectedHypergraphQ[#FinalState])&];
In[]:=
MakePictures2[First/@GatherBy[%,#FinalState&]]
In[]:=
Out[]=
Select[ParallelMapMonitored[WolframModelTest[#,{{1,1},{1,1}}]&,Table[{RandomWolframModel[{{2,2}}{{3,2}}],RandomWolframModel[{{2,2}}{{1,2}}]},1000]],(AnyTrue[Differences[#Sizes],#<0&]&&ConnectedHypergraphQ[#FinalState])&];
In[]:=
MakePictures2[First/@GatherBy[%,#FinalState&]]
In[]:=
Out[]=
Select[ParallelMapMonitored[WolframModelTest[#,{{1,1,1}}]&,Table[{RandomWolframModel[{{1,3}}{{2,3}}],RandomWolframModel[{{2,3}}{{1,3}}]},1000]],(AnyTrue[Differences[#Sizes],#<0&]&&ConnectedHypergraphQ[#FinalState])&];
In[]:=
MakePictures[First/@GatherBy[%,#FinalState&]]
In[]:=
Out[]=
Select[ParallelMapMonitored[WolframModelTest[#,{{1,1,1}}]&,Table[{RandomWolframModel[{{1,3}}{{3,3}}],RandomWolframModel[{{2,3}}{{1,3}}]},1000]],(AnyTrue[Differences[#Sizes],#<0&]&&ConnectedHypergraphQ[#FinalState])&];
In[]:=
MakePictures[First/@GatherBy[%,#FinalState&]]
In[]:=
Out[]=
Select[ParallelMapMonitored[WolframModelTest[#,{{1,1,1},{1,1,1}}]&,Table[{RandomWolframModel[{{2,3}}{{3,3}}],RandomWolframModel[{{2,3}}{{1,3}}]},1000]],(AnyTrue[Differences[#Sizes],#<0&]&&ConnectedHypergraphQ[#FinalState])&];
In[]:=
MakePictures[First/@GatherBy[%,#FinalState&]]
In[]:=
Out[]=
Select[ParallelMapMonitored[WolframModelTest[#,{{1,1,1},{1,1,1}}]&,Table[{RandomWolframModel[{{2,3}}{{3,3}}],RandomWolframModel[{{2,3}}{{1,3}}]},1000]],(Max[#Sizes]>6&&Count[Sign[Differences[#Sizes]],-1]>3&&ConnectedHypergraphQ[#FinalState])&];
MakePictures[First/@GatherBy[%,#FinalState&]]
In[]:=
Out[]=
EvolutionPicture[{{{1,2,3},{3,4,5}}{{1,1,1},{6,1,5},{4,7,1}},{{1,2,3},{2,4,5}}{{3,4,6}}},{{1,1,1},{1,1,1}},10]
In[]:=
Out[]=
Select[ParallelMapMonitored[WolframModelTest[#,{{1,1,1},{1,1,1}}]&,Table[{RandomWolframModel[{{2,3}}{{3,3}}],RandomWolframModel[{{2,3}}{{1,3}}]},1000]],(Max[#Sizes]>6&&Count[Sign[Differences[#Sizes]],-1]>3&&ConnectedHypergraphQ[#FinalState])&];
In[]:=
MakePictures[%]
In[]:=
Out[]=
ListLinePlot[{2,3,4,3,4,5,4,5,6,5,6,7,6,7,8,7,8,9,8,9,10,9,10,11,10,11,12,11,12,13,12,13,14,13,14,15,14,15,16,15,16,17,16,17,18,17,18,19,18,19,20,19}]
In[]:=
Out[]=
EvolutionPicture[{{{1,2,3},{4,2,5}}{{2,2,6},{1,4,1},{3,7,4}},{{1,2,3},{2,4,5}}{{5,5,3}}},{{1,1,1},{1,1,1}},20]
In[]:=
Out[]=
Select[ParallelMapMonitored[WolframModelTest[#,{{1,1,1},{1,1,1}}]&,Table[{RandomWolframModel[{{2,3}}{{3,3}}],RandomWolframModel[{{2,3}}{{1,3}}]},20000]],(Max[#Sizes]>6&&Count[Sign[Differences[#Sizes]],-1]>3&&ConnectedHypergraphQ[#FinalState])&];
In[]:=
MakePictures[%]
In[]:=
Out[]=
Select[ParallelMapMonitored[WolframModelTest[#,{{1,1,1},{1,1,1}}]&,Table[{RandomWolframModel[{{2,3}}{{4,3}}],RandomWolframModel[{{2,3}}{{1,3}}]},20000]],(Max[#Sizes]>6&&Count[Sign[Differences[#Sizes]],-1]>3&&ConnectedHypergraphQ[#FinalState])&];
In[]:=
MakePictures[%]
In[]:=
Out[]=
Rule Interference
Rule Interference
Select[ParallelMapMonitored[WolframModelTest[#,{{1,1},{1,1}}]&,Table[{{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},RandomWolframModel[{{3,2}}{{1,2}}]},20]],(Max[#Sizes]>6&&Count[Sign[Differences[#Sizes]],-1]>3&&ConnectedHypergraphQ[#FinalState])&];
In[]:=
MakePictures[%]
In[]:=
{},
Out[]=
Select[ParallelMapMonitored[WolframModelTest[#,{{1,1},{1,1}}]&,Table[{{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},RandomWolframModel[{{3,2}}{{1,2}}]},1000]],(Max[#Sizes]>6&&Count[Sign[Differences[#Sizes]],-1]>3&&ConnectedHypergraphQ[#FinalState])&];
In[]:=
MakePictures[%]
In[]:=
{},
Out[]=
Select[ParallelMapMonitored[WolframModelTest[#,{{1,1},{1,1}}]&,Table[{{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},RandomWolframModel[{{3,2}}{{1,2}}]},1000]],(Max[#Sizes]>6&&Count[Sign[Differences[#Sizes]],-1]>3&&ConnectedHypergraphQ[#FinalState])&];
In[]:=
MakePictures[%]
In[]:=
{},
Out[]=
Select[ParallelMapMonitored[WolframModelTest[#,{{1,1},{1,1}}]&,Table[{{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},RandomWolframModel[{{2,2}}{{1,2}}]},1000]],(Max[#Sizes]>6&&Count[Sign[Differences[#Sizes]],-1]>3&&ConnectedHypergraphQ[#FinalState])&];
In[]:=
MakePictures[%]
In[]:=
{},
Out[]=
Select[ParallelMapMonitored[WolframModelTest[#,{{1,1},{1,1}}]&,Table[{{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},RandomWolframModel[{{2,2}}{{1,2}}]},100]],(Max[#Sizes]>6&&Count[Sign[Differences[#Sizes]],-1]>3&&ConnectedHypergraphQ[#FinalState])&];
In[]:=
MakePictures[%]
In[]:=
Out[]=